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The problem with most real-time operating systems is 
simple, they're not an integrated solution, Vou end up dealing 
with a multitude of suppliers for languages, compilers, debug- 
gers and other important development tools. And when 
something docs go wrong, it can be a frustrating experience 
trying to straighten out the mess. 

Why Not Try the 
Microware One-Stop 
Total Solution? 

Microware's OS-9 Real-Time 
Operating System is a total inte- 
grated software system, not just 
a kernel, Wfe offer an extensive 
set of development tools, lan- 
guages, I/O and Kernel options. 
And this total in tegrated solution 
is entirety designed, built and 
supported by the same expert 
Microware team. 
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A Total Integrated Solution for Your Next Project 



Development Tooli: 

C Source LevsJ DeMwer 
Symbol* Debugger 
System Stale Debugger 
uMACS Teal Editor 
Cfeclro roc Mall 
Corrununica lions 
Super Shell 
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MMU <S«cvn1y Protection) Support 
Matt Coprocessor Suppori 
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Modularity Lets YOU Choose fust What You Need. 

The modular design of OS-9 allows our Operating System 
to adapt as your requirements change. OS-9 can support a 
complete spectrum of applications — from embedded ROM- 
based code in board-level products all the way up to large 
scale systems. 

Support is Part 
of the Package, 

Microware is proudly setting 
the industry's standard for cus- 
tomer support. \bu'll find pro- 
fessional and comprehensive 
technical documentation and a 
Customer Hotline staffed by 
courteous and authoritative soft- 
ware engineers. 

So slop messing with sim- 
ple kernels and independent 
suppliers. Call Microware today 
and find out more about the 
"One-Stop Integrated Solution" 
with OS-9! 
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This chapter discusses the reasons why the C 
language uses zero-based subscripts, rather than 
one-based subscripts, as used by several other 
popular languages. It also presents a simple file 
management program which illustrates the use of 
the C language for storage and retrieval of per- 
sonal information. 

SUBSCRIPT IN c 

Many popular languages, such as Fortran, 
Cobol, and some versions of Basic, base their 
subscripts at one, rather than basing them at zero. 
Several other languages either allow the specifica- 
tion of an explicit lower subscript bound or pro- 
vide the option for setting the base to zero or one, 
but not to any other value. The original justifica- 
tion for this convention is lost, but was probably 
based on mathematical sequence notation, which 
typically starts with one. 

Historically, there have been certain other 
means of computing subscript values, usually 
based closely upon particular hardware, which 
resulted in reversed or non-sequential mapping of 
subscripts to addresses. Luckily, no popular 
current systems allocate one-dimensional sub- 
scripts in other than an ascending linear fashion. 

From a compiler-writer's viewpoint, the most 
logical subscript base value is zero, since any other 
value requires either a subtraction to convert the 
subscript to an offset from a base address or 
requires the computation of an offset base address 



such that the first element of the subscripted item 
will actually reside at the desired address. 

In the C language, subscripting is considered 
another notation for indexing from a pointer. 
Thus, the following program fragments; 

char *p; 
char q[ 10); 

*(p + 2) = V; 
*(q + 3) = V; 

and 

char *p; 
char q( 101; 

p|2[ = V; 
q|3j«'b'; 

would produce equivalent results. 

Since adding zero to a pointer is equivalent to 
not offsetting the pointer with a value, subscripts 
in the C language are automatically zero-based. 
Although this might seem strange to a Cobol or 
Fortran programmer who has always used one- 
based subscripts, it is a natural outgrowth of the 
definition of the C language subscript notation. 

It is not entirely possible for a programmer to 
ignore the distinction between zero-based sub- 
scripting and one-based subscripting, which might 
be the tendency for one familiar with one-based 
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subscripting who must program in a language with 
zero-based subscripts. 

The existence of element zero usually may be 
safely ignored, except in certain cases, The wasted 
space will be important only in cases in which 
memory space is tight, and then only in multi- 
dimensional cases. It may never be ignoied in 
cases in which functions coded in languages with 
different subscript bases must pass information 
internally. 

An area which will always be diffeient con- 
cerns the declared size of the subscript range. In 
Basic, Cobol, and Fortran, the declared size cone- 
sponds to the upper bound of the subscript. The 
lower bound is normally one, although in some 
cases, it is allowed to be zero. In the C language, 
the size is the actual number of elements, so that it 
will be one more than the upper bound of legal 
values of the subscript. Thus, the following Basic 
program fragment: 

DIMQ(IO) 

would properly be translated into the following 
C program fragment: 

char qf 11]; 

Assuming that the element with subscript zero 
is not being used. 

INTRODUCTION TO RF - 
Rotary File Program 

The program presented as an example below 
was developed and placed into the public domain 
by Larry Lippman, of Recognition Research 
Corporation of Clarence, New York. 

Lippman calls this program rf. It is a simple 
"rotary file" file management system which stores 
names, addresses, telephone numbers, comments, 
etc. for rapid retrieval in a formatted page fashion. 

The rf program seaiches its input file using a 
search string keyed to a person's name or person's 
organization. Multiple matches are paginated 
using a single key command. 

In its present form, it will search for a record 



by individual name or by organization name. Any 
size search string may be used as the key. Com- 
mand-line parsing is intelligent enough such that 
quotes are unnecessary if the search string contains 
embedded whitespace. The output is displayed in a 
page-oriented fashion, with paging control used 
when multiple matches aie encountered. 

The input file is easily configured using any 
editor capable of creating files devoid of proprie- 
taiy formats or character sequences. The input file 
format is also designed so that it may be accessed 
by awk or sed for mailing list or other special 
applications. By setting an option, the user may 
access a system-wide file or a private file in their 
home directory. 

While the program could have been written 
using awk and tput, it is substantially faster and 
more portable because it is written in C. Typical 
search and display (9,600 baud) time on an AT&T 
3B2 for one record from a 30 kilobyte file is less 
than 2 seconds. Since this includes curses over- 
head, it's reasonably fast. The entire file is always 
searched to detect multiple matches. 

The program is reasonably well-commented, is 
intended to be easily modifiable, and is reasonably 
well-protected against users doing "dumb" things. 
The program runs on three different unix Sys V 
versions, and should probably run under bsd unix 
since it contains its own string search function and 
does not use getopt. The curses use is not particu- 
larly exotic, and could be replaced without too 
much difficulty on systems without curses or with 
versions which do not properly handle common 
terminals. 

The actual fields and field lengths were chosen 
to provide a program that fit the needs of 
Lippman 's organization - an industrial R&D 
laboratory which communicates a great deal with 
various other organizations. 

The program is written so that the field defini- 
tions and their lengths can be easily modified for a 
particular organization. For example, an organiza- 
tion might often send telex and facsimile machine 
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messages, but other organizations never send such 
messages - so these fields could be removed, 
allowing character expansion of the telephone 
number and uucp address fields. 

Some people may not like the choices of video 
attributes for the page display; obviously, this is 
easy to change. 

DESCRIPTION OF RF - 
Rotary File Program 

The rf program has a command line of the 
following format: 

if Kl [-11 hoi [search string] 

The -f flag selects a private file installed as 
.rf_data in the user's home directory. Invoking rf 
without this flag selects the file /usr/local/lib/ 
rf_data available to all users. 

The -1 flag lists only the name or organization 
field matches without displaying the rest of the 
record, and is used for rapid scanning of the file 
where multiple matches may occur. 

The -o flag searches for a match in the organi- 
zation field, rather than the name field. 

The search string may be composed of 1 to 72 
characters. It may contain one or more instances of 
whitespace without having the string enclosed in 
quotes. There is no upper to lower or lower to 
uppercase conversion; the case presented is 
matched as-is, and may be mixed. Punctuation and 
whitespace embedded in the string is also 
matched; each occurrence of whitespace must be 
limited to a length of one space or it may not be 
matched properly. 

DATABASE FILE FORMAT 

Each record consists of a minimum of two 
fields, with all fields containing a two-character 
identifier in the form of a letter followed by a 
colon. The data portion of the field may contain 
whitespace or any punctuation to a maximum 
character length as described below. Each iecoid 
must begin with a name field; if there is an organi- 



zation field, it must immediately follow the name 
field. If the lecoid pertains to an organization only 
having no person's name entry, the name field 
identifier is still necessary, with the rest of the 
field blank. All other fields are optional and may 
be included in any order. Records are separated by 
one blank line. 

Each field is limited to one entry per record, 
except that telephone, telex, fax and uucp may 
each have a maximum of two entries, for line- 
order display as presented within the record; a 
maximum of four comment entries is also permit- 
ted within the same record, 



N : name 


30 


chars 


max 


0: organization 


72 


chars 


max 


T: title 


24 


chars 


max 


D: department 


24 


chars 


max 


A: address 


72 


chars 


max 


P: telephone 


15 


chars 


max 


F:fax 


15 


chars 


max 


X:telex 


24 


chars 


max 


U:uucp 


24 


chars 


max 


H : home_telephone 


15 


chars 


max 


R:home address 


72 


chars 


max 



Fields which exceed the above maximum 
number of characters result in no eiror, but are 
silently truncated at the maximum permissible 
length when displayed. Fields which contain 
incorrect header characters are ignored. For the 
sake of uniformity, comments in the file that are 
not intended for display should be prefaced by the 
header #:. 

EXAMPLE FILE RECORD 

N: Public, John Q. 
0:Any Industry, Inc. 
T: Systems Programmer 
D: Widget R6D 

A: 123 Any Road, Anytown, NY 12345 
P:716/123-4567 
P:Ext 234 
F:716/123-4599 
X:12-3456 ANYINDNY 
U:]qpgany.t)t)CP 
H:716/123-9876 

R:456 AnybrooJc Lane, Anysuburb, NY 12354 
C: Writes CAD software for widgets 
C:Has extensive experience with XJfZNIX 
The following files are used by the rf pro- 
gram: 

$H0ME/ . rf_data user private file 

/usr/local/lib/rf_data system-wide file 
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C PROBLEM, EXAMPLE C PROGRAM 

Following Is this month's example C program; it implements the 
"rotary file" system described earlier. 



A "rotary file"-like file for 
names, addresses* telephone 
numbers and related information. 

Copyright (c> 1985 

by Lawrence Lippnen, larry@kitty.UUCP 

Recognition Research Corp., Clarence, NY 

Telephone: 716/688-1231 

uucp: { al leg ra | antes | boulder) dec vaxt 

rutgersjwatmath} ! sunybcs ! kitty! la rxy 
{hplabs I ihnp4 | mtune I utzoo I uunet } ! 

sunybcs ! kitty ! larry 



•include <stdio.h> 
•include <curaes.h> 
tinclude <signal.h> 
•include <string.h> 

•ifndef SYS0A1A 

/* system file */ 

•define SYSOATA Vusr/local/r^data" 

•endif 



* Global variables 



char telex [2] [25]; 
char title[25] ; 
char uucp[2] [25); 
int File; 
int List; 
int Org; 
int comlines; 
int hits; 
int more ( ) ; 
int phlines; 
int strsearchO ; 
int terminate () ; 

main(argc, argv) 
int argc; 
char **argv; 
t 

char *getenv(> ; 

char filename [65] ; 

int keywords; 

/* 
* Get options and search string 



(void) strcpy (Key, *">; 
keywords - 0; 

while (argc- > 1) 

< 

if (*argv[l] — >-') 

switch (argv[l][l] | 0x20> 

{ 



FILE 


•fl; 


FILE 


*fopen(); 


char 


Key[73J; 


char 


adr[73]; 


char 


buf[80]; 


char 


connjents[4] [73]; 


char 


dept[2S]; 


char 


fax[2][16]; 


char 


hooieadr[65] ; 


char 


hooiephone[16); 


char 


name [31] ; 


char 


org [73]; 


char phone[2)(16]; 





case U': 




List - 1; 




break; 




case *f* : 




File - 1; 




break; 




case *o' : 




Org - I; 




break; 




default : 




usage ( ) ; 


el 


se 


\ 





if {keywords > 0) 



2 

O 

$ 

3 






s 



(void) strcat (Key, M M ); 


* Read file. 


search for records 


(void) strcat (Key, argv[11 ) ; 


*/ 








keywords ++; 










} 


hits - 


0; 






argv++; 

J 


while 


(fget 


s(buf. 80 r fl)) 


if 


(buf[0] 


— ^N' 66 buffi] — *;') 


if (Istrlen(Key)) 


I 








usage (); 




if 


(strlen(fauf) — 2) 
(void) strcpy (name, M ") ; 


/* 




else 




* Select and open file 




( 






*/ 






(void) st rxcpy (name, buf, 2, 30); 








if 


(!0rg) 


if (File) 






< 




(void) sprintf (filename. 








if ( st r search (name. Key)) 


M %s/.rf_data". getenv( M HOE") ) ; 








{ 


else 








if (hits > 66 JList) 


(void) strcpy (filename, SYSOATA) ; 








(void) more () ; 
(void) strcpy (org, xs ") i 


if (! (fl - fopen (filename, M r"))) 








(void) clrrecord () ; 


( 








(void) rdrecord () ; 


(void) f printf (stderr. 








(void) display () ; 


*Cannot open data file %s\n", 








hits++; 


filename) ; 








\ 


exit(-l); 






) 




> 


i 


) 






/* 


J 

if 


(buf[0] 


— XT 66 buf(l] — *:') 


* Catch signals 


( 








V 




(void)strxcpy(org f buf, 2, 72); 






if 


(Org) 


(void) signal (SlGINT, terminate) ; 




( 






(void) signal (SIGQCJIT. terminate) ; 






if 


(strsearch(org P Key)) 


/* 






\ 


if (hits > 66 !List) 


* Initialize curses 








(void) more ( ) ; 


V 








(void) clrrecord () ; 
(void) rdrecord () ; 


initscr () ; 








(void) display () ; 


if (List) 






} 


hits++; 


1 

idlok (stdscr P 1) ; 




1 




setscrreg (0, 19); 


) 








scrollok (stdscr P 1) ; 
} 


) 








(void) texminate () ; 


/* 


return (0) ; 
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i 
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s 



} 


break ; 


/* 


case 'D' : 


* clrrecord: clear all display strings 


(void) strxcpy (dept, buf, 2, 24); 


V 


break ; 


clrrecord () 


case 'A' : 


( 


(void) strxcpy (adr r buf, 2, 72); 


int i; 


break ; 




case *P' : 


(void) strcpy (title, w ") ; 


if (phln > 1) 


(void) strcpy (dept , "") ; 


break ; 


(void) strcpy (adr r "") ; 


(void) strxcpy (phone {phln] , buf, 2, 15); 


(void) strcpy (honephone, w " ) ; 


phln++; 


(void) strcpy (honieadr, "") ; 


break; 


(void) strcpy (confronts [01 , w ") ; 


case V X' : 


for (i = 0; i <- 1; i++) 


if (txln > 1) 


{ 


break; 


(void) strcpy (phone [i ] , w " ) ; 


(void) strxcpy (telex [txln) , buf, 2, 24); 


(void) strcpy (telex [i], "") ; 


txln++; 


(void) strcpy (fax [i], ""); 


break; 


(void) strcpy (uucp[i) , "") ; 


case *F' : 


) 


if (fxln > 1) 


} 


break; 


/* 


(void) strxcpy (fax [fxln], buf, 2, 15); 


* rdrecord: read the rest of a record 


fxln++; 


V 


break; 


rdrecord ( ) 


case X U' : 


( 


if (uuln > 1) 


int fxln; 


break; 


int phln; 


(void) strxcpy (uucp {uuln] , buf, 2, 24); 


int txln; 


uuln++; 


int uuln; 


break ; 




case 'H' : 


phln « fxln - txln - uuln =* 0; 


(void) strxcpy (horoephone, buf, 2, 15); 


phlines - conilines - 0; 


break ; 




case X R' : 


while (fgets(buf, 80, fl)) 


(void) strxcpy (homeadr, buf, 2, 64); 


( 


break ; 




case % C : 


if (bufU) I- ►:' II strlen(buf) <- 1) 


if (conilines > 3) 


return; 


break; 




(void) strxcpy (comments [comlines I , buf, 2, 72); 


switch (buf[0l) 


comlines++; 


C 


break ; 


case x 0' : 


J 


(void) strxcpy (org, buf, 2, 72); 


if (phln > 1 1 1 txln > 1 I I fxln > 1 I I uuln > 1) 


break; 


phlines = 1; 


case V T' : 


} 


(void) strxcpy (tit 1«, buf, 2, 24); 


) 



s 






/* 






mvaddstrd, 32, title) ; 


♦ display: Display the results of a 


search 




mvaddstrd, 56, dept) ; 


V 






mvaddstr (4, 0, org) ; 


display () 






mvaddstr(S, 0, adr) ; 


I 






for (1 = 0; 1 <- phlines; 1++) 


int 1; 






{ 

mvaddstr(8 + 1, 0, phone II] ); 


if (List) 






mvaddstr(8 + 1, 16, fax[l]); 


f 






mvaddstr(8 ♦ 1, 32, telex[l]); 


if (Jhits) 






mvaddstr(8 + 1, 56, uucp[l]>; 
} 
mvaddstrdl + phlines, 0, homephone) ; 


erase () ; 






refresh () ; 






mvaddstrdl + phlines, 16, homaadr) ; 


if (Org) 






for (1 = 0; 1 <- comlines; 1++) 


mvaddstr(0, # org) ; 






mvaddstrd* + phlines ♦ 1, 0, confronts [1) ) ; 


else 








mvaddstr(0, 0, najne) ; 






refresh () ; 


} 






return (0) ; 


else 




} 




I 




/* 




if <0rg) 




* 


more: Prompt for display of entries 


printw(*ts", org); 




*/ 




else 




nore() 


printw("ts", name); 




{ 








aga 


in: 


I 






attron (A_«EVERSE) ; 


refresh () ; 






mvaddstr(20, 0, "MORE HITS; COffTlNUE?") ; 


return (0) ; 






attrof f (A_REVERSE) ; 


) 






mvaddstr (20, 22, "[y) [n] ">; 
refresh () ; 


erase () ; 






switch (getch() \ 0x20) 


refresh () ; 






( 








case *n' : 


attron (A_REVERSE) ; 






(void) terminate () ; 


mvaddstrTo, 0, Vx NAME"); 






case *y' : 


mvaddstr(0, 32, "TITLE"); 






return (0) ; 


mvaddstr (0, S6, "DQ>T") ; 






} 


mvaddstr (3, 0, "ORGANIZATION NAME A 


ADDRESS"); 




mvaddstr (20, 31, " ") ; 


mvaddstr(7, 0, "TEIZPRONE") ; 






goto again; 


mvaddstr(7, 16, "TELECOPIER"); 




1 




mvaddstr(7, 32, "TELEX"); 




/* 




mvaddstr(7, 56, "UUCP") ; 




* 


terminate: Exit gracefully 


mvaddstrdO + phlines, r "HOME TEIZPHONE"); 


*/ 




mvaddstr(10 + phlines, 16, "HOME ADDRESS") ; 


terminate () 


mvaddstr(13 + phlines, 0, "a*#4ENTS") ; 


( 




attrof f (A_REVERSE) ; 






(void) f close (f 1) ; 
move (LINES - 1, 0); 


mvaddstrd, 0, name); 






refresh () ; 



8 
§ 



I 
g 



erviwin () ; 
exit (0) ; 



st r search: 



Search for any occurrence of 
string "t" in string "s"; 
return 1 if a match found, 
otherwise return 



str searches, t) 
char s(80); 
char t[80); 

{ 

char st [80] ; 
int i; 
int n; 
int nn; 
int slength; 
int t length ; 

slength - strlen (s) ; 
tlength - strlen (t); 
if i\ slength II ttlength) 
return (0) ; 

for (i - 0; i < slength; i++) 

I 

for (n - 0, nn - i; nn < i ♦ tlength; nn++) 
{ 

if (nn > slength) 
return (0) ; 

st{n++] - s(nn| ; 

J 

st[n] - 0; 
if <!strc*p(st, t)) 
return (1) ; 

} 

return (0) ; 

J 

/ 

strxcpy: Copy string m t" to string w s", 
with "offset" characters in 
string m t" shipped before the copy, 
and with a maximum of "maxs" 
characters [not including NULL) 
copied to string w s" 
*/ 



char s[80); 
char t(80); 
int maxs; 
xnt offset; 
i 

int n; 

int nn; 

int tlength; 

nn » 0; 

tlength - strlen(t); 



for (n - offset; n <- tlength + 1; n++) 
( 





if 


(! (s[nn) - t(n])) 
return (0) ; 




if 
i 


(++nn >- maxs) 




\ 


s[nn + 1] - 0; 
return(O) ; 




} 






) 






return (0) ; 


1 






/* 






• 


usage : 


Display usage e 



usage <) 
{ 

(void) f print f (stderr, 
m usage: rf t-f] [-1) f-o] searchstringW) ; 
exit(-l); 
» 

EOF 
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strxcpy (s, t, offset, maxs) 
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OS -9 



Dedicated to the serious OS-9 user. 
The fastest growing users group world-wide! 
' 6809 ~ 68020 r 

XMODE, TMODE and DMODE 



A Tutorial Series 

By: Ron Voigls 

2024 Baldwin Court 
Glendale Heights, 1L 60139 



Well for the last few columns I have been beating on 
devices. I have covered RBF and SCF devices, This 
month will rap things up with a discussion of 
XMODE and TMODE. The title or this months 
column suggests that DMODE also exists. 

XMODE is a handy program that allows the SCF 
device descriptors in memory to be altered or dis- 
played. This can be used to effect any SCF device 
such as video terminal, printer and RS-232 ports, 
Its syntax is: 

XMODE device^name (parameterjistl 
Device_name can be any legitimate device like / 
TERM. /Tl and /P. The parameterjist includes: 

upc diplay only uppercase characters. 

-upc display uppercase and lowercase charac- 
ters. 

bsb backspace erases characters. 

-bsb backspace over characters. 

bsl backspace over line. 

-bsl backspace to next line, 

echo echo input characters. 

-echo no echo of characters. 

If. add line feed with carriage return. 

-If. no line feed. 

pause pause at end of page. 

-pause....no pause. 

null=n....n is the number of nulls sent after carriage 

return. 

pag=n n is the page length. 

bsp=h h is the input backspace character in hex. 

Usually it is $08 or ^H. 

bse=h h is the output backspace character in 

hex. Usually it is $08 or A H. 

del=h h is the input delete line character. Usually 

it is $18 or A X. 

bell=h....h is the the bell ring character. Usually it 

is $07 or A G_ 

eor=h h is the end of record caracter. Usually it 



is $0D, *M or a carriage return. 

eof=h h is the the end of file character. Usually it 

is $ IB or the escape key. 

type=h....h sets the partty. modem kill status and 

not ready delay for any external RS-232 d e - 

vices. To use this the following tables can be used. 

Parity None....0 Mark...A0 Space. EO Even.. .60 

Odd,,. .20 

Modem Kill On.... 10 Off.... 

Not Ready Delay number of seconds in hex i.e. 10 
seconds is OA 

To find the value for h select the features you want 
and add them together. For example, to get Even 
Partty. Modem Kill On and 10 seconds, use 

h=60+10+0A=7A 

reprint=h..h is the reprint character in hex. Usually 

this is $04 or A D. 

dup=h h is the duplicate last line character. 

Usually this is $01 or A A. 

psc=h h is the pause character. Usually this is 

$17 or *W. 

abort=h..h is the terminate character. Usually this 

is $03 or A C. 

quit=h..h is the quit character. Usually this is $05 

or A E. 

baud=h..h is the baud rate, word length and stop 

bits. 

Using the following tables can help calculate the 

value for h. 

Baud 

0....110 

1....300 

2... .600 

3... 1200 

4.. .2400 

5...4800 

6...9600 

7.. 19200 or 32000 hardware dependent 
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Word Length 
0.... 8 bits 
20.. ..7 bits 
Stop bits 
0....1 stop bit 
80.. 2 stop bits 

To find the correct value for h . select the values you 
desire and add them up. For example the baud rate 
is 4800. with 7 bit wore and 2 stop bits. To iind h pick 
the values out of the tables and add them. 

h=5+20+80=A5 

Using XMODE is just as simple. Let us say we want 
to change / PI using the values of TYPE and BAUD 
calculated before and have It print In only uppercase 
characters. The input would look like: 

OS9:XMODE /PI UPC TYPE=A7 BAUD=A5 

Now the PI device descriptor would be set to the 
values shown here. When a path was opened to / P 1 . 
these values would be In eifect. The key is that the 
device descriptor is changed not the path. 

TMODE Is used to change parameters of a path. 
Generally It Is used on the standard paths. It does 
not effect the descriptor, only the path. It uses the 
same parameters as the XMODE. Its syntax is : 

TMODE (path_number] Iparameterjlst) 
Normally you use it from the keyboard. A line like: 

OS9TMODE -UPC -PAUSE 

will allow your terminal to print upper and lower 
case, and turn on the page pause feature. 

AddlngTMODE to the STARTUP file Is a little trlckey. 
The problem Is that TMODE Is getting Its input from 
the disk where the startup file is stored. ForTMODE 
this is Its standard input. Ttythis. Add TMODE to 
you startup file and watch the display when 
STARTUP is run. It will print something like: 

/Dl upc -bsb -bsl echo -If null=35 pause pag=0 

bsp=00 

del=12 eor=00 eof=12 reprint =03 dup=08 psc=00 

abort=80 

qult=80 bse=00 bell=OB lype=00 baud=00 xon=00 

xoff=13 

Nolicehowthefirstllneis/Dl. This Is what TMODE 
read. As result most of the Information here Is 
nonsensical. To use it In a file like STAR1TJP, create 
the line: 



TMODE . 1 

Add any other parameters to the line as you wish. 
This line tells TMODE to use the path # 1 for it input . 
This will work. 

So far I have touched on 2 methods to change a SCF 
device or It path. This month I ofler a program 
written In C that will change the descriptor of an 
RBF device. It Is called DMODE and appears In 
Listing 1. 

Enter DMODE by itself and It will print a help screen 
explaining the possible choices. It does requre 
knowledge of what value you want to change. For 
example If you were to go from a single sided disk to 
a double sided one you would enter. 

DMODE /DO SID=2 

This would go to the device desciptor change the 
byte at $19 to 2. It also corrects the CRC of the 
module so you can use DMODE and later use 
COBBLER to create a new disk. 

One more piece of news for this column. I have 
finished the monumental task of pulling together all 
the listings for all the columns. The listings Include 
3 years of this column from April 1985 to March 
1 987. It took 3 disk and they are full! 1 have all the 
original source codes on these disks. They are either 
compiled, packed or assembled for your conven- 
ience. I won't do a review here, but rather tell you 
to give Don a call. Do to the lag time of when I write 
the column and It appears, It may already be avail- 
able. So watch for It! 
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LISTING 


1 


0046 




unsigned offset; 




0001 


/* 




0047 




char ty_at ; 




0002 






0048 




char la_rv; 




0003 




Name : dmode . c 


0049 




char pc; 




0004 




Date: 27-JUN-88 


0050 




unsigned fmname; 




0005 




Author: Ron Voigts 


0051 




unsigned ddname; 




0006 




To Compile: ccl dmode. c 


0052 




char mode; 




0007 
0008 
0009 






0053 
0054 
0055 




char control [3 J; 
char tabsize; 








}; 




0010 




Version 1.0 27-JUN-88 RDV 


0056 








0011 




Original 


0057 /* 


Structure for device parameters •/ 




0012 






0058 


struct parameters { 




0013 




Version 1.1 22-ADG-88 RDV 


0059 




char dtp; 




0014 




Added help function. 


0060 




char drv; 




0015 






0061 




char stp; 




0016 






0062 




char typ; 




0017 






0063 




char dns; 




0018 




Function: 


0064 




unsigned cyl; 




0019 




DH0DE allows the device descriptor 


0065 




char aid; 




0020 




values to be changed. It does 


0066 




char vfy; 




0021 




require knowledge of desired values. 


0067 




unsigned sct; 




0022 




^ * * * * * * * * * * * * * * * * * * ^ * * */ 


0068 
0069 




un signed tos; 
char ilv; 




0023 




********************** */ 






0024 






0070 




char sas; 




0025 


1 include <ctype.h> 


0071 


I; 






0026 


1 include <stdio.h> 


0072 








0027 


•include <nodule.h> 


0073 /* 


Declare variables used */ 




0028 






0074 


struct header *mod; 




0029 


static char *p(J * { 


0075 


struct parameters *it; 




0030 




"DTP", ~DRV", ^STP", 


0076 


mod 


__dev *modlink(); 




0031 




TYP", *DNS", *CYL", 


0077 


nod 


_dev *munlink () ; 




0032 




~sid w , *vfv, w sct", 


0078 


int 


i; 




0033 




TOS", ~ILV", ~SAS" 


0079 








0034 


1; 




0080 


/* 


If no arugments print help message */ 




0035 






0081 


if 


( argc*l ) 




0036 


/* 


Main program */ 


0082 




help(); 




0037 


main (aigc f argv) 


0083 


/* 


If 1 argument print information about the device 


*/ 


0038 


int argc; 


0084 


else if ( argc— 2 ) { 




0039 


char **argv; 


008S 




/* Not a device name */ 




0040 






0086 




if ( argv[l] fO] r- V' ) 




0041 


1 




0087 




help(); 




0042 


/* 


Structure for nodule header */ 


0088 




/* Get the parameters and print them */ 




0043 




struct header ( 


0089 




mod - modlinJc(argv[l]+l, 15, 1 ); 




0044 




unsigned sync; 


0090 




if ( mod — -1 ) 




0045 




unsigned size; 


0091 




exit ( errno ) ; 









0092 


it»(int)mod+si2eof (*mod> ; 


0138 






it->sid-value(argv[i] ) ; 




0093 


printf rDRV-%2d w , (int) (it-xirv) ) ; 


0139 






break; 




0094 


printf rSTP-%2d w , (int) (it->stp) ) ; 


0140 




case 


7: 




0095 


printf CTYP-%2d *\ (int) (it->typ) ) ; 


0141 






it->vfy-value(argv[i] ) ; 




0096 


printf r\n") ; 


0142 






break; 




0097 


printf TDNS-%2d ~, (int) (it->dns) ) ; 


0143 




case 


8: 




0098 


printf PCYL-%2d *,it->cyl); 


0144 






it->sct -value (argv [ l ] ) ; 




0099 


printf TSID-%2d M ,it->sid); 


0145 






break; 




0100 


printf( M \n"); 


0146 




case 


9: 




0101 


printf TVFY-% 2d M ,it->vfy); 


0147 






it->tos-value(argv[i] > ; 




0102 


printf rSCT«%2d M ,it->sct); 


0148 






break; 




0103 


printf CTOS-%2d % \ it->tos) ; 


0149 




case 


10: 




0104 


printf r\n"); 


0150 






it->ilv-value (argv [ i ] ) ; 




0105 


printf riLV-%2d *, it->ilv) ; 


0151 






break; 




0106 


printf (*SAS-%2d *\ it->sas) ; 


0152 




case 


11: 




0107 


printf r\n"); 


0153 






it->sas-value (argv [ i ] ) ; 




0108 


munlink( argv[l]+l ); 


0154 






break; 




0109 


} 


0155 




default: 




0110 


/* Else the device descriptor is to be changed */ 


0156 






printf ("No default valueW); 




0111 


else { 


0157 






break; 




0112 


mod - modlink(argv[lJ+l, 15, 1 ); 


0158 




J 




2 


0113 


if ( mod — -1 ) 


0159 




/* Fix the module CRC in memory */ 


I 


0114 


exit ( ermo ) ; 


0160 




fixcrc( mod, mod->size) ; 


1 


0115 


it-(int)mod+sizeof (*mod) ; 


0161 


) 






f 


0116 


/* Proces the remaining parameters */ 


0162 | 








S 


0117 


for (i-2; i<argc; i++) 


0163 










0118 


switch ( isin( argv[i] ) ) { 


0164 /• 


Help message */ 






0119 


case 0: 


0165 help() 








0120 


printf ("Can't change device type\n"); 


0166 { 










0121 


break; 


0167 


printf (' 


*Usage:W); 






0122 


case 1: 


0168 


printf ("diode [RBF_OeviceJ [Paramater_List] \n") ; 




0123 


it->drv~ (char) value (argv[i] ) ; 


0169 


printf (' 


*Parantters : \n" ) ; 




0124 


break; 


0170 


printf V 


*DRV - Drive 


number\n") ; 




0125 


case 2: 


0171 


printf (' 


*STP - Step 


rate\n"); 




0126 


it~>stp- (char) value <argv[i] ) ; 


0172 


printf (*TYP - Device type\n"); 




0127 


break; 


0173 


printf C 


*DNS - Media 


density\n") ; 




0128 


case 3: 


0174 


printf C 


*CYL - Numer 


of cylinders\n") ; 




0129 


it->typ- (char) value (argv[i] ) ; 


0175 


printf ( 1 


*SID - Huiriber of sides\n*); 




0130 


break ; 


0176 


printf PVFY - Verify disk writes\n") ; 




0131 


case 4 : 


0177 


printf PSCT - Sectors per track\n"); 




0132 


it->dns- (char) value (argv [i] ) ; 


0178 


printf (^TOS - Sector on track 0\n") ; 




0133 


break; 


0179 


printf (' 


*ILV - Interleave factor\n") ; 




0134 


case 5: 


0180 


printf PSAS - Segment allocation\n") ; 




0135 


it->cyl-value (argv(i J ) ; 


0181 


exit( 


); 






0136 


break; 


0182 } 










0137 


case 6: 


0183 









i 



s 

8 



0184 /* Returns the table location of from the argument 


«/ 0223 


char c[3] ; 




0185 isin ( s ) 


0224 


int i; 




0186 char *s; 


0225 


i-start+size-sizeof [c] ; 




0187 ( 


0226 


c[0J-c[l]-c[2]-255; 




0188 int i; 


0227 


crc{ start, size-3, c ); 




0189 upper ( s ); 


0228 


c[0]~ c[0 ]; 




0190 for ( i«=0; i<12; i++ } 


0229 


c[l]«=-c[U; 




0191 if ( findstr(l,3 r p[i]> ) 


0230 


c[2]-~ c[2]; 




0192 return < i ); 


0231 


start [size-3] -c[0] ; 




0193 return ( -1 ); 


0232 


start [size-2]-c[l]; 




0194 ) 


0233 


start [size-1 ] =c [2 ) ; 




0195 


0234 \ 






0196 /* Returns integer value from arguruent */ 


0235 






0197 value ( s ) 








0198 char *s; 








0199 ( 








0200 while ( »s!-'-' ) [ 








0201 if ( * 3mm r\ - > 








0202 return ( ); 








0203 s++; 








0204 } 








0205 return ( atoi ( ++s ) ) ; 








0206 } 








0207 








0208 /* Cconvert string to upper case */ 








0209 upper ( t >' 








0210 char *t; 


• 






0211 ( 




■ 




0212 while { *t!-'\0* ) [ 








0213 *ttoupper ( *t ) ; 




. 




0214 t++; 








0215 } 








0216 } 








0217 








0218 /* Fix CRC of module in memory */ 








0219 fixcrc( start, size) 








0220 char *start; 








0221 int size; 








0222 ( 
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There was no official TEST last time, so, as I intend you to try those same exercises as TEST TWELVE 
1*11 leave the solutions till another time. 

Are we all gathered round? Pencils and squared-paper at the ready? OK then, here we are at 

Mile 15 - heading for Mile 16 

SYMMETRIC FUNCTIONS (continued) 

SHIFHNG DOWN 

When symmetric notations have multiple subscripts with adifference GREATER than 1 and THE NEXT 
NUMBER IN THE PROGRESSION WOULD BE GREATER THAN THE NUMBER OF VARIABLES 
OFSYMMETRY,aprocessknownas"shiftingdown"can beemployedto substantially itduce the number 
of transfers in the circuit-design. 



JAiBiCi&lE! 



Diagram 74 



During the previous mile of our journey (diagram 71 ) we designed a S2 ,4 ABCDE using basic principles. 
Now we're going to re-design it using the shifting-down technique. We can shift-down because 

(a) the subscripts have a difference greater than 1, and 

(b) the next subscript in sequence is greater than the superscript. 

That is, the next number in the sequence 2, 4 .... is 6, which is greater than the superscript "5" 

Our first step is to draw the "fish-net" for the lowest subscript (in this case, 2-out-of-5). Then, instead of 

superimposing a 4-out-of-5 parallelogram, we shift-down through NO-contacts to the 1 -level, as shown in 

Diagram 74, using the following procedure. 

First, we must calculate the number of levels through which to shift down, this being ALWAYS one less 
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than the difference between the subscripts, ie 4 - 2 = 2 (the difference) and 2 - 1 = 1, so we'll shift-down 
through one level. This is done by commencing in the top-left comer of the parallelogram, and slanting 
downwards to the right ACROSS ONE COLUMN ONLY to level-1 (one level down). Then we move to 
the right along the top edge of the parallelogram to the next relay's column, similarly slanting downwards 
to the right, and continuing until there are no more meaningful points to which to connect. For instance, we 
don't add a third shift-down in the E-column in our example, as the lower end of this line would not be 
attached to any part of the parallelogram at the 1 -level. 

The circuit action is visualised thus : 

Commencing at the bottom-left comer (power-input), zero relays operated would confine us to the 0- 
level, one relay operated would move us up to level- 1 , and two relays operated to le vel-2 and out to the output- 
line. But, if a third relay operated it would shift us back down to level-1 (now properly called the 1 ,3-level) 
cutting off the output in so doing. A fourth telay would send us back up to level-2 (now the 2,4-level), re- 
activating the output, while the fifth and final relay would cut it off again by returning us to the 1,3-level 
(ultimately called the 1,3,5-level!). 

The diagonal-lines added for shifting-down are interpreted as a SINGLE NO-CONTACT on the relay in 
whose column they appear, NO MATHER HOW LONG THEY ARE! 

If all tlus still seems a little hard to accept, you can again pick any combination of 2 or 4 relays and verify 
that the output will be activated, but not if ANY other combination is selected! 



>2 
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Diagram 75 

Diagram 75, which attempts to employ shift-down for a S|,4 ABCDEF, shows why this method cannot 
be used if the next step in the subscript-progression is NOT greater than the superscript. Interpreting the 
circuit action as before, we see that an output would be obtained if any two relays operated; we'd be back 
down at level-1 for 3; output at level-2 again for 4, down again to level-1 for 5 relays, and finally UP TO 
LEVEL-2 FOR 6 RELAYS, AND OUT AT THE OUTPUT-LINE, This final output is not called for in the 
specs, the circuit in effect being a S ^,4,6 ABCDEF network. 

MULTIPLE-LEVEL SHIFriNG-DOWN 

A shift-down may be made through more than one level, as long as the number of levels shifted is one 
less than the difference in the subscript progression. For example, let's design aS 3, 7 network. 
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Diagram 76 
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As before, we design for the lowest subscript, that is a 3-out-of-8 circuit. Then, calculating one less than 
the difference between the subscripts (7 - 3 - 1 = 3), we shift-down through 3 levels, following the procedure 
described, using two NO-contacts (one on relay-D and one on E), which are already available on existing 
transfers, but unused, and hey presto! we' ve achieved the 7-out-of-8 part of the specs ! If we 'd followed basic 
principles instead, and superimposed a 7-out-of-8 parallelogram over the original 3-out-of-8, quite a large 
number of extra contacts would have been necessary. Try it and see!!! 

Sometimes, though, it's necessary to add levels befoie the required shift-down can be made, as in the case 
of the network forS|»7 ... coming up next. 



— r 1 1 ^ 




Diagram 77 

Refer to Diagram 77, where we've drawn the lowest 2~out-of-8 network. Calculating the shift-down 
results in 7 - 2 - 1 = 4, but unfortunately we only have 2 levels through which to shift. So let's produce 4- 
levels by slanting up A SINGLE LINE from the lower-left corner to level-4, and from there we'll shift-down 
by four levels to level-0 at the right-hand side of relay-E. H'm! We see that it's possible to shift-down across 
relay-F too, so we'll extend our new parallelogram along level-4, and add this new NO-contact to relay-F. 
There's no moie shift-down possible, otherwise the next would have to connect to the right-hand side of 
relay-G at level-0, and there's no valid connection-point there. So we merely "fill-in" the new parallelogram 
slanting upwards from level-2 to level-4, BUT WE DON'T FILL-IN BETWEEN THE SHIFT-DOWN 
LINES... NOT EVER!! 

Now for yet another technique which allows us to save relay-contacts. This relies on the identification 
of 

EQUIVALENT POINTS 

Let's design a S^,3 ABCDE. The first thing we realise is that we can't use a shift-down, as the next step 
in the progression is NOT greater than the superscript 5, and so we construct the network of Diagram 78a, 
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Diagram 78 
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Commencing at the output end (at both levels 1 and 3) and looking back through relay-E's contacts, we 
can see the points S, T, U and V, which we mark on the network. Then we draw up the table of Diagram 
79a, with the rows labelled for the four points under consideration, and the columns headed "E = 0" and "E 
= 1". Now, considering point-S, we note that if relay-E is NOT operated, then S is connected (via the 
horizontal NC-contact of E) to the output, which we label as "Z", and if relay-E IS operated then S goes 
nowhere. These facts are recorded in the row labelled S. Point-T, on the other hand, goes nowhere when 
E = (cut off by E's NO-contact) but is connected to Z when E = 1 . This, too, is noted in the table, and so 
on for points U and V. 

Having done all that, let's look at 79a! Right away we see that S and U are equivalent, as are T and V, 
Our new procedure allows us to join S to U and T to V, and to eliminate any contacts leading from S and T 
to the curved lines of the output, as shown in 78b. Remembering what I said earlier about output-lines only 
being allowed from the right-hand side of our graph, we are left with only the output from level- 1 . We could 
equally as well have eliminated the contacts going to the output from U and V, which would have left us with 
a single output-line at level-3 instead. Anyway, the net result is that we've saved one transfer on relay-E. 

But we're not done yet! Point-S now exists on both levels 1 and 3, and point-T on levels and 2. so let's 
look back from these points on the two curved lines just inserted, through relay-D's contacts to new points 
W, X, Y and Z (this "Z" won't be confused with the output-line as none of these points can directly reach 
the output any more). 



Diagram 79 



I 

s z - 

T - X 

Z - 



(*) 





o 


1 


w 


S 


— 


X 


T 


S 


r 


S 


T 


z 


T 


s 



<tf 



We therefore draw up the table of 79b, and record in the appropriate column (D = or D = 1) the points 
to which W, X» Y and Z are connected for these conditions. This lime, only points X and Z are equivalent, 
so, just as we did earlier, we connect these two points together with a curved line and eliminate from either 
point-X or point-Z any D-contacts leading to The right. This results in the network of 78c. 

Looking back through relay-C's contacts from this curved line's ends, to points P, Q and R, we find we 
can't create any equivalent points from these three, because the three NO-contacts of C lead to three 
completely different points, which would, of course, make the "C = 1" column of any new table quite 
incompatible. 

And so 78c remains our final non-redundant network, the net saving being one transfer on each of relays 
D and E. 

COMPLEMENTATION OF SYMMETRICAL CIRCUITS 

Sometimes it pays to study the specs a little before jumping in and drawing the required network. For 
example, suppose we were called on to design a circuit for Sft, 1,3,4 ABCD. Here we can't readily use the 
shift-down technique as the subscript progression is irregular, so how about drawing the complement of the 
desired network, and then, if it's planar (ie, if we haven't used shift-down), we can graphically complement 
it. In this case, being the naturally observant fellows we are, it strikes us immediately that 

S 2,1,3,4 ABCD = (S< ABCD)' 

and so we simply draw a S2 ABCD network as in Diagram 80a, and then complement it using graphical 
complementation to produce the network of 80b. 2-o t-of-4 is, of course, the hindering-function of 0, 1 ,3,4- 
out-of-4, which, when complemented, becomes equ 'alent to the original function. 

Note that even during the final process the transfer-contact configuration is preserved. 
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Diagram 80 



You should try this yourself, and veiify that you can "square up" your final complemented nei work to give 
that of 80b, 

COMPLEMENTATION OF THE VARIABLES OF SYMMETRY 

Here's anotherextremely useful technique, which may enable a shift-down type of circuit to be produced 
where it wouldn't otherwise be possible. Let's take another look at Diagram 78, where we were asked to 
design a S i,3 ABCDE. 

Now Si, 3 ABCDE = s\a A'B'CD'E*. Remember? (1 relay operated is the same as 4 NOT operated, 
and 3 operated is the same 2 NOT operated). While a shift-down isn't possible with the left-hand side of the 
•quation (because the next number in the subscript sequence is NOT greater than the superscript) it IS 
possible with the right-hand side. And so this circuit is designed instead of the original, WITH ONE 
IMPORTANT DIFFERENCE! The relay designations at the foot of the columns must appear in their 
complemented form, to indicate that we're now thinking in terms of DE-energised relays. The meaning of 
the lines is also complemented, HORIZONTAL lines becoming NO-contacts, and DIAGONAL lines, 
whether normal or shift-down type, becoming NC-contacts. 
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Diagram 8 1 



Diagram 8 1 shows the network, and I think you'll agree it's a pretty neat one, which took no time at all 
to design. Let me emphasise, though, that it's VERY important at this stage for you to get in the habit of 
entering the complement-signs over the variables just as soon as possible, because in the not-too-distant 
futuie we'll be dealing with MIXED variables of symmetry. That is, SOME of them will be complemented 
and others not, and it would NEVER do to omit one of those little signs! 

SHIFTING-DOWN WITH THREE OR MORE IRREGULAR SUBSCRIPTS 

When three or more subscripts do NOT form an arithmetical progression, it may, or may not, be possible 
to use shift-down. For instance. Diagram 82a shows an attempt to shift down for S ^,2,5 ABCDE, by making 
level-2 a 2,5-level. Unfortunately, it introduces a false output for 3-out-of-5 on level-0. 
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A belter approach would be 10 slant up to level-3 first, and then shift-down to level- 1 to make it a 1 ,4-level, 
with a correct output for 5 relays at level-2, now the 2,5-level. 
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(a) 

Diagram 82 

Very often, the number of variables of symmetry determines whether a shift-down is possible. 82b shows 
how a shift-down can be made with S \ ,2,4 ABCD, but is impossible with S \ ,2,4 ABCDE in 82c. Can you 
see why? Pll explain, AFTER YOU'VE HAD A GO AT FIGURING IT OUT FOR YOURSELF. We get 
an output at level- 1 for one relay, at level-2 for two relays, then back down to level-0 (with no output) for 
three. Four relays move us back up to level-1 again, with an output, but we're beaten by the fact that five 
relays move us up to level-2, still giving an output when none is called for with this combination! 

Note how we "wedged" out a transfer in both 82b and 82c, because level- 1 and level-2 are one subscript 
apart!! 

Before setting up camp for the night, let me add that, in all the examples we've done, the various output 
levels could just as well have been separate single outputs, but then we wouldn't be apply redundancy 
techniques to the networks! Perhaps we could hook this into a PIA, each output level going to a different 
PIA input. By monitoring the PI A (or perhaps by means of a generated interrupt) our computer would be 
aware of the ongoing status level of the relays in our network. The computer itself wouldn *t have to do any 
computing to figure out what level we're at, as our "intelligent" relay network would respond almost 
instantaneously, shifting the levels up and down, and OFF or ON, as the relay-conditions changed. In 
addition to using these levels as PIA inputs, we could still have them actuate lights, allowing us to visually 
monitor the network status as well. 

Or, of course, we could simply hook the compound-output of our examples into one PIA line, so the 
computer would know right away, without any actual checking on its part, when the subscript conditions 
have been met! 

That's the end of our arsenal of techniques for tackling symmetric circuit design, but don't go away yet. 
There's still a lot more to leam about these little beauties, as you'll find out next time! 

Anyway, here's a repeat of the last mile's exercises as an official, and expanded-in-scope TEST. You'll 
enjoy doing these, I know! 

TEST TWELVE 

1, Design networks, in as many different ways as you can, for the following symmetric functions. 

(a) S £,2,5 ABCDE (b) S £ ,4,5,6 ABCDEFGH (c) S f ,4 ABCDEF 
(d)S/,4 ABCD (ejS^.lO ABCDEFGHIJKL (f)S*,2,4,5 ABCDEF 

I just can't resist telling you how amazed you're going to be next month at the surprising way we're going 
to shift our viewpoint of symmetric functions, so we can create circuits even more fantastic than those of the 
last few miles. What a lucky bunch of guys you are!! 

... End of Mile 15. Now at marker "Mile 16", but still a long way from journey's end! 
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SK*DOS Advances 



I have some most interesting news regarding a 
new feature of SK*DOS. Peter Stark has imple- 
mented sub-directories, For those of us with hard 
disks, this is a real breakthrough. Peter has not 
implemented multi-level directories, but he has 
enabled us to split a drive into a root directory and 
26 or 52 sub-directories. The sub-directories are 
called A through Z. If you enable the flag that 
turns on the distinction between upper and lower 
case in filenames, you can also have directories a 
to z. I presently am using only upper case, so I 
have the possibility of 26. I haven't had the new 
version of SK*DOS long enough to be completely 
at ease with all the new features, but I did manage 
to modify PAT so it works nicely with the new 
features. Most utilities automatically work with 
these multiple directories, but PAT had to save 
filenames and change extensions, so I had to do a 
bit of rework to get everything working together. 

I can mention a number of uses for the mul- 
tiple directories. If you have one floppy drive and 
one hard drive on your system as I do.and you 
want to copy a floppy to another one, you can set 
up a new and empty directory as the current 
directory, and copy a whole floppy into it. Then 
you can format a new disk and copy the whole 
directory to the floppy. Of course you can use 
FTOH and HTOF as well. Then there is the ease 
of backing up the hard disk, particularly if no 
directory exceeds the capacity of one floppy. 
(Every time I have tried to use FTOH to put a 
whole disk on the hard disk temporarily and they 



copy it to another floppy (to duplicate a floppy) I 
have had an error occur, and so have had to copy 
the disk a file at a time). I suppose my floppy 
drive is unreliable in some way, but copying a file 
at a time always seems to work. 

The single letter directory names are rather 
useful. T for text or letter files, A for assembler 
source files, C for ,4 C ¥ source files, W for Whimsi- 
cal source files, M for memo files, B for BASIC 
files, etc. Of course I am never satisfied with what 
I get, and I've been running MS-DOS and OS9 for 
a while, so I implemented a CHD command to 
change the working directory without changing the 
working disk. CHD T, and whatever directory you 
are in, you are moved to the T/ directory on the 
same disk. CHD .. will get you back to the root di- 
rectory (shades of both MS-DOS and OS9). 
Borrowing further from OS9, PD will report the 
current working directory. I also implemented 
CHX to change the system (execution) directory. 
Those of you who use IBM compatibles all day 
might wish to call CHD CD to be more consistent, 
1*11 publish those utilities here in a couple of 
months, after any bugs in the new directory im- 
plementation are sorted out. 

Presently, I have the hard disk partitioned as 
two logical drives, and I. I use as my "system 
drive" with all the utilities on it, and I, which I 
made twice as large, as the working drive. I don't 
see much need to fragment the COM files into nu- 
merous directories. They are all software to be run 
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at various times. Perhaps if a complex compiler 
came along, with a lot of files, I'd be tempted to 
put it in its own directory for a while, but other- 
wise the system files can all be in one. 

CSC C Compiler Completed 

I recently received a copy of the new C com- 
piler from CSC, ported and adapted by Sid Th- 
ompson and Bud Pass. The documentation is an 
inch and a half thick pile of 8 1/2 by 11 pages, and 
I have not waded through all of it yet, but I am 
impiessed by the compiler. It is very easy to use 
and it generates assembler source code to be used 
by a modified version of the CSC Assembler 
ASM. The compiler produces absolute code, but it 
is ORGed far above SK*DOS and I have had no 
problems in that regard. The libraries are in as- 
sembler source code form and it would seem that 
the compiler automatically pulls in the assembler 
code for each called library routine. There is 
presently no linker for this compiler, so that it 
must compile a program as one unit. The compiler 
is quick, running substantially faster than the sub- 
sequent assembler pass on the compiler output. 

A number of demonstration programs were 
supplied for my testing of the compiler. I haven't 
explored all of them just yet, but there is a paged 
listing program, a pretty printing and formatting 
program for C source code, a couple of nice 
calendar printing programs and a large number of 
others. So far, all have compiled and run success- 
fully. 

Emacs is an editor written in C, also available 
from CSC. Sid has ported the Micro version to the 
SK*DOS environment, and it runs nicely and has 
all the necessary features such as a smooth word 
wrap mode for entering text. It is quite configur- 
able and has key macro capabilities. It can edit 
multiple files at the same time, split a screen 
showing portions of two different files in the two 
screen windows, allow you to move text from one 
file to another, and a number of other nice features 
generally found in some of the most advanced 
editors in the IBM compatible realm. There is a 
long tutorial file through which you can work 



while running Emacs, and a file that prints out a 
two-page summary of the commands. 

I was quite impressed with the speed of 
Emacs, though quite a bit less favorably impressed 
with the choice of keys. For example, anyone who 
has used Wordstar with the control keys E for 
cursor up, D for right, S for left and X for down, 
(or E, F, S, and C for the same in PAT or PIE) 
would think the key assignments on a mnemonic 
basis to be exuemely inconvenient. Control keys 
are P(rfcvious) for cursor up, N(ext) for cursor 
down, B(ack) for cursor left, and F(orward) for 
cursor right. If you have a PT68K-2, and you have 
the IBM keyboard and mono-graphics card, Sid 
has provided a driver called HERC, that allows 
you to use the cursor control keys on the IBM key- 
board for cursor manipulation, and that is of 
course satisfactory and desirable for those who use 
IBM compatibles some of the time, and have 
become accustomed to using the cursor keys. 

All is not lost even if you don't like the key 
assignments for Emacs, however, since keys may 
be reassigned by means of key reassignment 
control character sequences. I asked Sid if I could 
set up a key assignment file and get Emacs to read 
it and configure itself on startup, and he indicated 
that it may be possible. I am awaiting further in- 
formation from him, but meanwhile I can reassign 
keys and experiment for a while. 

Do I like Emacs better than my own creation, 
PAT? Of course not. As I pointed out to someone 
recently, If I found something I liked better, Pd 
simply change my PAT to do what I liked better. 
As I say whenever 1 discuss editors, they are 
probably the most personal software that a pro- 
grammer uses. There is plenty of room for varying 
tastes and different editors. The fact that this one 
may be personalized rather heavily, makes it much 
more suitable for a wide range of tastes than it 
would otherwise be. Actually 1 found the use of 
more or less mnemonic keys in the less frequently 
used commands to be a large help. I would only 
like to change the cursor motion keys to a set that 
are significant for their position on the keyboard 
rather than for the mnemonic value. My only 
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oiher comment regarding Emacs is thai the .COM 
file is over 100K of object code. So what? The 
editor is probably ihe most used single program 
thai any of us owns. Half a percent of our 20 
Mbyte hard disk storage space is a liny price to 
pay for a very capable editor. 

I mighi also add that in my brief exposure to 
Emacs, editing a file or two a few nighis ago, I 
found without doubt that I liked it better than just 
about ANY of the IBM compatible editors that I 
have Died. That list includes PC-Type, PC-Write, 
Kedit, PQFedit, and the better of the two offered 
by Paperback Software, tha name of which escapes 
me presently, because I haven't used it in so long. 
Emacs, unlike most of the IBM compatible offer- 
ings, does NOT clutter the screen up with endless 
smiling faces and spade, heart, club symbols all 
supposed to have significance. It doesn't display 
"soft hyphens'* and "soft carriage returns" as do 
many of the IBM compatible editors. There is nor- 
mally just a single status line at the bottom of the 
scieen, though you can ask for and display much 
other information temporarily. Enough said about 
Emacs except to tell you to try it, you might like it 
a great deal. I understand from Sid that there 
might be a version available for the IBM com- 
patibles so you could edit on your daytime IBM 
clone and your night time 68020 system with the 
same identical editor! I'll have to check with Sid 
regarding how to get that MS-DOS version. 

Now, back to the compiler. The C compiler, 
as I said before is quite acceptably fast, many 
times faster than any C compiler I ever ran on a 
6809 system. It implements virtually all of the 
features in K&R, (Kemighan and Ritchie, the 
Bible of the "C" language) other than data type 
float and double, and the corresponding floating 
point arithmetic functions. Floating point is not 
needed (hardly ever, anyway) in writing system 
programs such as text file filters etc. I had a 
discussion with Sid some time ago regarding 
floating point arithmetic. He said that he had 
written a large number of programs (he does that 
for a living) in the past ten years, and that about 
two of them had needed floating point arithmetic. 
I responded that I too had written a large number 



of programs over that same time period, and there 
were two or three that didn't need floating point 
arithmetic. No, one of us is not wrong and the 
other right, it is just that our applications are in 
different realms. I am usually trying to find the 
volume of the material iemoved by drilling a hole 
to the depth of the conical drill tip, or perhaps by 
milling a flat on the outside edge of a round part, 
etc. If I am not doing that, I might be doing some 
vector manipulation, finding the volume of liquid 
in a cylindrical tank laid flat based on the measure- 
ment of the depth of the liquid in the tank and its 
dimensions, etc. Sid is more involved in the 
systems programming aspect of computing, (In my 
mind, at least, more difficult than the sons of 
things that I do with computers). He makes 
different computers talk to each other by means of 
modem programs (CMODEM is one of his ef- 
forts). Notwithstanding Sid's applications, 1 
would certainly be more than pleased if he and 
Bud would someday consider adding at least floats 
to their C. I can do without double precision 
floating point for about 99% of my applications, 
but lack of floats limits my use of this C to per- 
sonal projects in the area of file manipulation. I 
realize that I am in the minority in this wish, and 
lack of floating point should not deter anyone from 
purchasing this C who doesn't need those capabili- 
ties. 

General Observations 

The list of available software for SK*DOS has 
grown substantially in recent days. There are now 
five editors, Peter Stark's Edlin, (a simple but 
effective line editor), ED, a reasonable screen 
editor, Pat, (a little more capable in my opinion), 
and Micro Emacs, a rather full featured and well 
written scieen editor, and EDDY from Palm Beach 
Software. Each has its place. Then there is the C 
compiler, a soon to be ready BASIC, Whimsical 
(probably to be more or less complete by the end 
of this year), and UBASIC which has floating 
point capability but is limited in other areas. There 
are two assemblers, ASM from CSC and ASMK 
from Palm Beach Software. SK*DOS itself is 
coming along with new features such as the mul- 
tiple directory facility described above. Perhaps 
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the thing has reached "critical mass'* and a chain 
reaction will take place, more people using 
SK*DOS inspiiing more software so that there will 
be more people inteiested in using it, etc. etc. 

If things settle down at work in the near future, 
and Summer ends so things get back to normal ac- 
tivities again, I intend to do some in depth looking at 
some OS9 software now that the company has the 
latest update version for the -020 system. There is 
the latest and greatest OmegaSoft compiler to look 
at, and some things that Frank Hoffman of Lloyd 1/ 

has said that he would send for evaluation. Then 
there's those disk transfer utilities from Granite 
Software that I said I would look at months ago 
before I found out that it wouldn't run with the older 
version of OS9. Perhaps I can get the new version 
installed soon and get on with those projects. 

More On C 

I have had further time and opportunity to use 
the C compiler mentioned above. First, I ported 
over my JUST.C from OS9. I had made JUST (a 
text formatter) run under Microware C, and was 
interested in finding out if I could compile it with 
the new compiler in SK*DOS. To my amazement, 
the file compiled and assembled WITHOUT ER- 
ROR! It didn't quite run on first try, however, and 1 
found a single error in the new compiler, a failure of 
the feof() function which is supposed to return zero 
if a file is not ended, and non-zero at the end of the 
file. It turns out that most **C* programmers use 
something like the following to read and process a 
file: 

while (ch = geic(infile)1= EOF) { proce&s a character ) 

I had used a more conventional Pascal structure 
since the program had been written in Pascal ini- 
tially and translated later: 

while (feof(infitc) =M3) [ ch - gctc(inf ile); process a character 

Sid Thompson has since found and fixed the 
problem with the feof() function and returned a 
working version of it to me. The other problem that 

1 encountered has to do with how C works in various 



operating systems. In OS9, FLEX, and 
SK*DOS, a text file has end of line signaled by 
a CR. In other operating systems such as CPM 
and MS-DOS, the condition is signaled by LF. 
Without going into great detail, when I com- 
pared the character from the file with *\n\ the 
"newline" character, the test worked fine. 1 had 
compared with a CR in the OS9 version so 1 had 
to make the change. The comparison with \n 
will work in both (and probably all) versions of 
C. It would s§em that the test that I had chosen 
was simply not the most portable one. JUST 
now runs fine in the new C ,p Somewhere 
along the line several years ago, Lane Lester 
modified my original JUST to work with a 
proportional spacing printer, and had given me a 
copy. I started at that and did a C version, and it 
too runs in the new C. This time, I made the 
necessary change to compare with \n, and with 
the repaired feof(), the program not only com- 
piled first try, but it ran also. 

A letter from Sid indicates that the next 
project in expanding the C compiler will be to 
add floating point capabilities. Of course I wait 
expectantly for that addition. 

Whimsical Version 1,3 

I received an update on Whimsical a couple 
of weeks ago. This latest has floating point ca- 
pabilities. I spent a week of evenings writing 
improved scientific function procedures for it, 
and all are now working. The functions run 
fairly fast, though I haven't done extensive 
timing tests on all of them, the square root, for 
example on the PT68K-2, runs just about 8(X) 
microseconds regardless of the input value. The 
arithmetic package uses a 24 bit 2's complement 
mantissa and an 8 bit 2's complement with 127 
offset exponent. The package takes advantage 
of the fact that a normalized floating point 
' number always has a 1 in the leftmost bit, by not 
including that 1 in the number representation (or 
if you like, hiding the I under the sign bit). The 
extra bit of resolution gained by this technique 
means that a full 7 decimal digits are available. 
If this technique is not used the largest number 
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that can be represented is just over 8000000, so 
that a full 7 digits would not be possible without 
the trick of hiding the high order 1. 

I must mention that pan of the success with 
the scientific function package is that there is suffi- 
cient mechanism in Whimsical to allow direct "bit 
manipulation" (what Nigel Bennee of Lucidata 
once called "bit fiddling") on the floating point 
number repiesentaton. It is possible to get the 
exponent of the number and divide it by 2, for 
example, as the first step in getting a good ap- 
proximation for the first guess in the squaie root 
routine. 

I have been ironing out the last problems in 
PAT running on the PT68K-2 with the IBM style 
keyboard and Monochrome Graphics board and 
monitor. As soon as I am certain it all works 
together, we will be offering it for sale. I've 
resisted the temptation to distribute it until I am 
sure there arc no known bugs in it. That is no 
guarantee that a few more will not be found by 
users who try features that I don't normally use, 
but it does minimize the hassle once a number of 
copies have been shipped. 



RBASIC 
Arrives 

Bob Jones just sent me a copy of RBASIC 
for the 68000 (and a version for 6809 FLEX but 
that is another story). I haven't had a real chance 
to do extensive testing just yet, but I printed out all 
64 pages of the manual and read through it once 
from cover to cover. It appears that RBASIC is 
completely compatible with TSC's XBASIC. 
THANKS BOB!! I've moved a few code files 
over into SK*DOS and they have run without 
glitches in RBASIC. Bob did TSC one byte better 
with his REAL arithmetic. The package uses 8 



bytes for the number and one byte for the two's 
complement exponent for a total of 9 bytes. The 
extra 8 bits of the representation of the number 
brings the precision to just about 20 digits. Con- 
sidering the precision of the numbers that may be 
repiesented, the code executes very fast. I'll do 
some hard numbers compared to the old TSC 
XBASIC running on a 6809 and we'll report the 
speed increase here perhaps next time when I get 
to do a full leview of the package. 

Meanwhile, let me say that the package is im- 
pressive. The BASIC is written in Assembler and 
the object code is under 32K, which is very small 
for so capable a program. I found the scientific 
functions to be accurate to some 14 to 16 digits, 
which is more than enough for just about any 
application that requires them. In our company 
applications, the input data is almost never good to 
more than four places absolute tops, so 6 or 7 digit 
arithmetic and scientific functions are more than 
adequate for our calculations without reducing the 
accuracy of our results. That is, the input data 
contributes by far the largest factor to the overall 
error of the calculations. I have always used 
Extended BASIC to test any new procedures for 
calculating scientific functions. Now I have a 
standard in RBASIC for new functions done on the 
SK*DOS 68000 system. 

I ought to report that Bob's 20 digit value of 
PI does not agree with another source that I have 
found, after about the 15th digit. I'll send my 
value to Bob and/or see if its use will improve the 
accuracy of the functions a little. My first quick 
test didn't seem to indicate any improvement. 
+++ 
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SCULPTOR S 

From the world's oldest & largest OS-9 LI 

software house! 

CUTS PROGRAMMING TIME LP TO 80% 

6809/68000-68030 Save 70% 

SCULPTOR-a 4GL - Only from S.E, Media at these prices. OS-9 levels one and two (three GIM1X) 6809, 
all 68XXX OS-9 standard systems. Regular SCULPTOR versions 1.4:6. One of if not the most efficient 
and easy to develope DBMS type systems running under OS-9! A system of flexible keyed file access that 
allows extremely fast record and data retrieval, insertion and deletion or other programmed modifica- 
tions. Access by key or in ascending order, very fast. The system provides automatic menu generation, 
compilation and report generation. Practically unlimited custom input format and report formatting. A 
rich set of maintenance and repair utilities. An extremely efficient development environment that cuts 
most programming approximately 80% in development and debugging! Portable, at source level, to MS- 
DOS, UNIX and many other languages and systems. 

Standard Version: 1.6 6809 - $1295.00 
68000 $1295.00 
68020 $1990.00 



Due to a "Special One Time" Purchase, We 
Are Making This Savings Offer. Quantities 

Limited! 
Once this supply is gone - the price goes 

back up! 
System OS-9: 6809/68000-68030 

• Regular $1295.00 

^ NLY $295.00 



♦ $7,50 S*H USA 
Overseas - Shipped Air Mail 
Collect 
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POB 849 

5900 Cassandra Smith Road 

H IXSON , TN 37343 615 842-4601 
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*$1>990$398 $795 PC/XT/AT/MSDOS $695 $139 $299 

MUSTANG-08 *$ 1,295 $259 $495 Call or write for prices on the following systems. 

XENIX SYS III & V. MS-NET. UNIX SYS 111 & V, ATARI OS-9. 68K. UNOS. ULTKIX/VMS (VAX.REGAU. STKJDE, ALIOS. APRICORT. ARETIE. ARM 
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•K'tc\: 5106006630 



ASSEMBLERS 

AST RUK09 from SB. MmKi -- A "Stiucturcd Assembler for the 6809* 
which lequirc* ihe TSC Macro Assembter. 
F, S, CCF - $99,95 
Macro Assembler Tor TSC - The FLEX, SK*DOS STANDARD 
Assembler. 

Special -CCF $35 DO; F,S $50 DO 
GSM Extended 6809 Macro Assembler from Uoyd I/O. - Provides local 
labels, Motorola S-maords. and Intel Hex rcconli; XREF Generate 
OS-9 Memoiy modules under FLEX. SK«DOS- 
FLEX. SK*DOS> CCF, OS 9 $99.00 
Relocating Assembler/Linking Loader from TSC. - Use wiih many of ihe 
C and Pascal Compile r*. 
F. S, CCF $150.00 
MACE, by Graliam Troti from Windrush Micro Systems -- Co-Resident 
Editor and Assembler; fast interactive A.L, Programming for small to 
madium'Sized fVograms. 
F.S, CCF .$75.00 
XMACE - MACE w/Cross Assembter for 680GV 1/2/3/8 
F. S. CCF . $98.00 

DISASSEMBLERS 

SUPER SLEUTH from Computer Systems Consultants Interleave 
Disassembler: extremely POWERFUL* Disk File Binaiy/ASClI 
Examine/Qiange, Absolute or FULL Disassembly. XREF Generator, 
Label "Name Changer", and Files of "Standard Label Names" for 
different Operating Systems. 

Color Computer SS50 Bus (all w/ AL Source) 
CCD 02K Req'd) Obj Only $4900 
F. S. $99 00 . CCF. Obj. Only $50 00 U, $100.00 
CCF, wiSource $99.00 0, $101.00 . CCO. Obj. Only $50,00 
OS9 68K Obj. $100.00 wtSturce $200 DO 
68010 Disassembler $100.00 F. S, 0, U, UNIX. MS DOS 
DYNAMITE* - Esccltcnt standard "Batch Mode" Disassembler. Includes 
XREF Generator and "Standaid Label" Hie*. Spu.ul OS-9 options w/ 
OS -9 Version. 

CCF. Obj Only $100 DO * CCO t Obj. $ 59.95 
F.S, " " $100D0-O. object only $150.00 
V. m " $300,00 

CROSS ASSEMBLERS 

CROSS ASSEMBLERS from Computer Systems Consultants -- Support! 
1802/5. Z-80. 6800/1/2/3/8/1 1/HC1 1.6804. 6805/HCO5/ 146805, 6809/ 
00/01. 6502 family. 8080/5. 80HVI/2/35/C35/39/ 40/48/C48/49/C49/50V 
8748/49, 8031/51/8751. and 68000 Systems. Assemb er and listing 
formau same as target CPU's format, Produces midline independent 
Motorola S-TexL 
68000 or 6809, F, S f CCF. O, U. •Macintosh, •Alan. UNIX. MS DOS 

any object or source each - $50.00 

any 3 object or source each . $100 DO 

Set of ALL object $20000 - wi source $500,00 
XASM Cross Assembler* for FLEX. SK'DOS from S.E MEDIA ~ Injs 
set of 680CV 1/2/3/5/8, 6301. 6502. 8080/5. and Z80 Cross Assemblers 
uses the familiar TSC Macro Assembler Command line and Sourac 
Code format. Assembler options, etc., in providmg code for the target 
CPU's. 

Complete set, FLEX, SK*DOS only . $150 00 



CRASMB from LIjOYD I/O - Supports Motorola's, Intel's. /ilogs, and 
other's CPU syntax for these 8-Bu microprocessors: 6800, 6801 , 6303, 
6804.6805. 6809. 681 1 (all varieties); 6502. 1602/5. 8048 family. 8051 
family, 8080/85, Z8. Z80. and TMS-7UXI family, lias MACROS, 
Local Labels, Label XREF, Label Lcngih to 30 Chars. Object code 
formats: Motorola S Records (text). Intel HF.X-Records (te*l) t OS9 
(binary), and FLEX, SK*DOS Canary), Wraucn m Assembler ,.. e.g. 
Verv FaiL 
CPU TYPE -Price each: 

Fot: MOTOROLA INTEL OTHER CO MIL CrE SET 
FLEX9 $150 $150 $150 $399 

SK*DOS $150 $150 $150 S399 

OS9/6809 $150 $150 $150 5399 

OS9/68K -~~ . $432 

CRASMB 16.32 from LLOYD I/O *- Supports Motorola's 68000. and has 
same features as the 8 bit version. OS9/68K Object code Formal allows 
this cross assembter to be used in developing your programs for OS9/ 
68K on your OS9/6809 computer 

FLEX. SICDOS. CCF. OS 9/6809 $249.00 

COMMUNICATIONS 

CMODKM Telecommunications Program from Computer Systems 

Consultants. Inc. — Menu-Driven; supports Dumb Terminal Mode, 
Upload and Download m non-protocol mode, and ihe CP/M "Modem7" 
Qinstensen protocol mode to enable communication capabilities for 
almost any requirement. Wnucn in *C* 

FLEX,SK*DOS. CCF. OS 9. UniFLEX, UNIX, MSOOS, 68000 A 
6809 with Source $100.00 . without Source $50 00 
X-TALK from S.E, Media - X-TALK consists of two disks and a special 
cable, the hookup enables a 6809 SW IPC compHer to dump UniFLEX 
files directly to the UniFLEX MUSTANG-020, This is ihe ONLY 
currently available method U> transfer SWT1>C 6809 UniFU'X files to a 
63000 UniFLEX system. Gimu 6809 users may dump a 6809 
UniFLEX file to a 6809 UntFLEX five mch disk and it is readable by 
the MUSTANG-020. Ine cable if specially piepared with internal 
ocvinecskns to match the non- standard SWTPC SO/9 VO Db25 
connectors. A special SWTPC S+ cable set is also availab e. Uscn 
should specify which SWTPC system he/she wishes to communicate 
with the MUSTANG-020. Tlte X-TALK software is furnished on two 
disks. One eight inch disk contains S.E. Media modem program C- 
MODEM (6809) and the oiher disk is a MUSTANG-020 five inch disk 
with C-MODEM (68020). Text and btnaiy files may be directly 
txmnsfened between the two systems. The C-MODEM programs are 
unaltered and perform as excellent modem programs also. X-TALK 
can be purchased with or wiihout the special cables, but this special 
price is available to registered MUSTANG-020 users only. 

XTALK Complete (cable, 2 disks) $99 95 

XTALKSoft^re (2 disks only) $69,95 

XTALK with CMODEM Source $149.95 
XDATA from S.E. Media . A COMMUNICATION Package for the 
UniFLEX Operating System. Use with CF'/M. Main Frames, other 
UmFLEX Systems, etc. Veiifies Transmission using checksum or 
CRC; Re -Transmits bad blocks, etc. 

U .$299 99 
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PROGRAMMING LANGUAGES 

PL/9 from Windrush Micro Systems - By Graham Troo. A oambjiaiicrt 
Editor Compter Debugger. Direct source to objca compilation 
delivering fat, compact, re-entrant, ROM-able. PIC 8 & 16.hil 
Integcn & 6-digii Real numbers for all reahworld pioblems. Direct 
control over ALL System resources, including interrupts. 
Comprehensive librmiy support; simple Machine Code intetface; step* 
by*sicp tracer for instant debugging. 500+ pige Manual with tutorial 
guide. 

F, S, CCF . imxx) 

PASC from S.E. Media - A FLEX9. SK'DQS Compiler with a definite 

Pascal "flavor" . Anyone with a bit of Pascal experience should be able 
to begin using PASC to good effect in short order. The PASC package 
comet complete with three sample programs: ED (a syntax or structure 
editor), EDITOR (a simple, public domain, screen editor) and CHESS 
(a simple chess prog ram). The PASC package comes complete with 
source (written in PASC) and documentation. 
FL£X.SK*DOS $95.00 

WHIMSICAL from S.E. MEDIA Now supports Real Numbers. "Structured 
Programming" WITHOUT losing the Speed and Control of Assembly 
Language! Single-pass Compiler features unified, user defined I/O; 
produces ROMable Code; Procedure* and Modules (including pre- 
compiled Modules); many Types" up to 32 bit Integers. 6~digu Real 
Numbers, unlimited sized Arrays (vectors only); Interrupt handling; 
long Variable Names; Variable Initialization; Include directive; 
Conditional compiling: direct Code inseition; control of ihe Stack 
Pointer, etc. RunTime subroutines inseited as called during 
compilation. Normally products 10% less code than PL/9. 
F.SandCCF -$19500 

KANSAS CITY BASIC from S.E. Media - Bask for Color Computer OS 9 
with many new commands and sub functions added. A full 
imptonenuauon of the IF-11IEN.ELSE logic is included, allowing 
nesting to 255 levels. Suing* are suppoited and a subset of ihe usual 
string functions such as LEFTS, RIGHTS, MID$, STRINGS, etc. are 
included. Vaiiables are dynamically allocated. Also included arc 
additional features suds as Peek and Poke. A must for any Color 
Compiler user running OS-9. 
CoCo OS 9 13995 

C Compiler from Windrush Micro Systems by James McCwh. Full C for 
FLEX, SK*DOS except bit-fields, including an Assembler Requires 
the TSC Relocating Assembler if user desires to implement his own 
Libraries. 

F, Sand CCF $295.00 

C Compiler from Introl - Full C except Doubles and Bit Fields, 

streamlined for the 6809. Reliable Compiler, FAST, efficient Code. 
More UNIX Compatible than most. 

FLEX. SK'DOS, CCF, OS 9 (Uvel // ONLY). U - 1575 .00 

PASCAL Compiler from LucldaU - ISO Based P-Code Compiler. 
Designed especially for Microcomputer Systems. Allows linkage to 
Assembler Code for maximum flexibility. 

F, S and CCF5 M - Si 90.00 F, S 8'» $205.00 

OmegeSoft PASCAL from Certified Software - Extended Pascal for 
systems and leal-time programming. 

Native 66000/58020 Compiler, $575 for base package, options available. 
For OS/-9/68000 and PDOS host system. 

6809 Croat Compiler (OS-9/68000 host) $700 for complete package. 



KBAS1C - from S.E. MEDIA ~ A "Native Codc M BASIC Compiler which is 
now Fully TSC XBASIC compatible. The compter compiles to 
Assembly language Source Code. A NEW, streamlined. Assembler is 
now included allowing the assembly of LARGE Compiled K-BASIC 
Programs. Conditional assembly reduce* Run -time package. 
FLEX, SICDOS, CCF t OS 9 Compiler /Assembler 199.00 
CRUNCH COBOL from S.E. MEDIA - Supports large subset of ANSD 
Uvel 1 COBOL with many of the useful Level 2 features. Full FLEX. 
SK'DOS File Structures, including Random Files and the ability to 
process Keyed Files. Segment and link large piograms at runtime, or 
implemented as a set of overlays. The System requires 56K and CAN 
be run with a single Disk System. A very popular product. 
FUDC, SK'DOS, CCF . 199.95 
FORTH from Stearns Electronics -- A CoCo FORTH Programming 
Language. Tailored to the CoCof Supplied on Tape, transferable to 
disk. Wiiuen in FAST MJL Many Q>Co functions (Graphics, Sound. 
etc). Includes an Editor, Trace, etc Provides CPU Cany Flag 
accessibility. Fast Task Multiplexing, Clean Interrupt Handling, etc. for 
the H Pro M . Excellent "Learning" tooll 
Color Computer ONLY - $5895 
IX) RTH BUILDER is a stand-alone target compiler (crosscompiler) for 
producing custom Fotth systems and application programs. 
All of the 83-standard defining words and control structures are 
recognized by FORTH BUILDER. 

FORTH BUILDER is designed to behave as much as possible like a 
resident Fotth inteipreter/compiler, to that most of the established 
techniques for writing Forth code can be used without change. 
Like compilers for other languages, FOR111BUIUDER can opaaie in 
"bairn mode M . 

The compiler recognises and emulates target names defined by 
CONSTANT or VARIABLE and is readily extended with "compue- 
lime" definitions to emulate specific target words. 
FORTHBUILDER is supplied as an executable command hie 
configured for a specific host system and target processor. Object 
code produced from the accompanying model source code is royalty* 
free to licensed users. 
F.OCF.S- $99.95 

EDITORS & WORD PROCESSING 

JUST from S.E. Media « Text Formatter developed by Ron Anderson; for 
Dot Matrix Printers, provides many unique features. Output 
"Formatted" Text to the Display. Use the FPRINT.CMD supplied for 
producing multiple copies of the "Formatted" Teat on the Printer 
INCLUDING IMBEDDED PRINTER COMMANDS (very useful at 
other times also, and worth the pr>ce of the program by itself). 'User 
Configurable" for adapting to other Printers (comes set up for Epson 
MX-80 wiih Grafirax); up to ten (10) imbedded "Printer Contiol 
Commands". Compensates for a "Double Width" pi in ted line. Includes 
ihe nonnal line width, margin, indent, paragraph, space* vertical skip 
lines, page length, page numbering, centering, fill, justification, etc 
Use with PAT or any other editor. 

* Now supplied as a two disk set: 

DisM 1: JUST2.CMD object file, 

JUXT2.TXT PL9 source. FLEX, SK'DOS - CC 

Disk 02: JVSTSC object and source in C: 

FLEX. SICDOS .OS9.CC 

The JTSC and regular JUST C source are two separate programs. JTSC 
compiles to a version that expects TSC Word Processor type 
commands, (pp .sp .ce etc) Great for your older text liles. The C 
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source compile! 10 a standard syntax JUST.CMD object file. Using 
JUST syntax (# ,u ,y etc) With all JUST functions plus several 
additional printer formauing functions. Reference the JUSTSC C 
source. For ihose wanting an excellent BUDGET PRICED word 
processor, wiih features none of the others have. This is itt 

Disk (J) - PL9 FLEX only- F.S& CCF - $49.95 
Disk Set (2)~F,S& CCF A OS9 (C version) * $69.95 

OS 9 68KOOO complete wiih Source . 179.95 
PAT from S.E. Media - A full feature screen oriented TEXT EDITOR wnh 
all we best of TIE™ ". For ihose who swore by and loved only PIE r 
this i* for you! All PIE features and much morel Too many features to 
List And if you don't like these, change or add your own. PL-9 source 
furnished. X" source available soon. Easily configured to your CRT, 
with special coring section. 

Regular FLEX, SK*DOS $129.50 

• SPECIAL INTRODUCTION OFFER ♦ $79.95 

SPECIAL PAT/JUST COMBO (^source) 
FLEX. SK*DOS S99.95 

OS-9 68K Version $22900 

SPECIAL PAT/JUST COMBO 68K $249.00 
Note; JUSI'in "C" source available for OS 9 
CEDRIC from S.E. Madia - A screen oiienied TEXT EDITOR with 

availability »f 'MENU 1 aid. Macro definitions, configurable 'permanent 
definable MACROS' - all standard features and the fastest 'global' 
functions in the west A simple, automatic terminal cotrfig program 
makes this a real 'no hassel' product Only 6K in size, leaving the 
average system over 165 sectors for text buffer * appx. 14.000 plus of 
free memory! Extra fine for programming as well as text. 

FLEX. SK*DOS $69.95 
BAS-EDIT from S.E. Media - A TSC BASIC or XBASIC screen editor. 
Appended to BASIC or XBASIC. BAS-EDIT is transparent to normal 
BASIC/XBASIC operation. Allows editing while in BASIC/XBASIC 
Supports the following functions: OVERLAY. INSERT and DUP 
LINE. Make editing BASIC/XBASIC piograms SIMPLEI A GREAT 
time and effort saver Programmers love itl NO more retyping entire 
lines, etc. Complete with over 25 different CRT terminal configuration 
overlays. 

FLEX, CCF. SK^DOS $39,95 
SCREDITOR III Tram Windrush Micro Systems -- Powciful Screen- 
Oriented Editor/Word Processor. Almost 50 different commands; over 
300 pages of Documentation with Tutoiial. Features Mult i- Column 
display and editing, "decimal align" columns (AND add them up 
automatically), multiple keystrokemacros, even/odd page headers and 
footer;, imbeddad printer control oodes, all justifications, "help** 
support, store common command seiies on disk, etc. Use supplied "set- 
ups", or remap the keyboard to your needs. Except for proportional 
priming, ihis package will DO IT ALL! 
6800 or 6809 FLEX. SICDOS or SSB DOS. OS-9 - $175,00 
SPELLB "Computer Dictionary 4 from S.E. Media - OVER 150,000 words! 
Laok up a word pom wiihin your Editor or Word Processor (wtlh the 
SPH.CMD Utility which operates in the FLEX. SICDOS UCSy Or 
check and update the Text after entry; ADD WORDS to lhe Dictionaiy. 
"Flag" questionable words in the Text, "View a word in context" before 
changing or ignoring, etc. SPELLB first checks a "Common Woid 
Dictionary", then the normal Dictionaiy, then a "Personal Word List", 
and finally, any "Special Woid List" you may have specified. SPELLB 
also allows lhe use of Small Disk Storage systems. 

F, Sand CCF SI 29. 95 



STYLO-GRAPH from Great Plains Computer Co, - A fullscreen oriented 
WORD PROCESSOR « (uses lhe 51 x 24 Display Screens on CoCo 
FLEX/SIC* DOS, or PBJ Woidpak>. Full screen display and editing; 
supports lhe Daisy Wheel proportional printers 
NEW PRICES 6809 CCF and CCO - $99 95. 
F,Sor 0- $179.95, U - $299.95 
STYLO-SPELL from Great Plains Computer Co. - Fast Computer 
Dictionary. Complements Stylograph. 

NEW PRICES 6809 CCF and CCO - $69,95. 
F, S or $99.95, U- $149.95 
STYLO-MERGE from Great Plains Computer Co. *- Merge Mailing List to 
"Form" Letters, Print multiple Fdes.ctc. through Stylo. 
NEW PRICES 6809 CCF and CCO . $59.95, 
F.SorO-$7995,U. $12995 
STYLOPAK ~- Graph 4 Spell -► Merge Package Dcalllt 
F.SorO- $129.95, U . $54995 
0, 63000 $695 00 

DATABASE ACCOUNTING 

XDMS from Westchester Applied Business Systems 
FOR 6S09 FLEX.SK*DOS(5/r> 

Up to 32 groups/fields per record? Up to 12 character file names I Up lo 1024 
byte records I User defined screen and print contrail Process files I Fonn 
files! Conditional executionl Process chainingl Upward/Downward file 
linking* File joining! Random file virtual pagingl Built in utilities! Built 
in textline editorl Fully session oiienied! Enhanced formsl Boldface. 
Double width. Italics and Underline supported! Written in compact 
structured assembler! Integrated for FAST execution! 
XDMS-IV Data Management System 

XDMS-IV is a brand new approach lo data management. It not only pen-nits 
users to desciibe. enter and reiiieve data, bul also to process entire files 
producing customised reports, screen displays and Hie output. 
Processing can consist of any of a set of standard high level functions 
including record and field selection, sotting and aggregation, lookups in 
other files, special processing of record subsets, custom rcpoii 
formatting, totaling and subtotaling, and presentation of up lo three 
related files as a "database" on user defined output reports. 
POWERFUL COMMANDS! 

XDMS-IV combines the functionality of many popular DBMS software 
systems wiih a new easy to use command set into a single integrated 
package. We've included many new features and commands including a 
set of general file utilities. The processing commands are Inpui-Pnxeis- 
Output (IPO) which allows almost instant implementation of a process 
design. 

SESSION ORIENTEDI 
XDMS-IV is session orientad. Enter "XDMS** and you are in instant 

command of all lhe features. No more watting for a command lo l«ad in 
from disk! Many commands are immediate, such as CREATE (file 
definition). UPDATE (file editor), PURGE and DELETE (utilities). 
Others are process commands which are used to create a user process 
which is executed wiih a RUN command. Either may be enteicd into a 
"process** file which is executed by an EXECUTE statement. Processes 
may execute other processes, or themselves, either conditionally or 
unconditionally. Menus and screen prompts are easily coded, and entire 
user applications can be run without ever leaving XDMS-IV 
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its easy to usEr 

XDMS-IV keeps daia management simpler Rather than design a complex 
DBMS which hides the true nature of ihc data, we kept XDMS-IV file 
oriented. The user view of data relationships is pie sen led in reports and 
screen output, while l he aaual data resides in easy to maintain files. 
This aspect permits customized presentation and reports without 
complex nadeJlniion of ihe database files and structure. XDMS-IV may 
be used for a wide range of applications from simple record 
management systems (addresses, inventory ...) to integrated database 
systems (older entry, accounting...) 

The possibilities are unlimited... 

FOR 6809 FLEX-SK*DOS(5/8") $249.95 

UTIUTIES 

Bask09 XRef from S.E. McdU - This Basic09 Cross Reference Utility is a 
Basic09 Program which will pioduce a "pretty printed" listing with each 
line numbered, followed by a complete cross referenced listing of all 
variables, external procedures, and line numbers called, Also includes a 
Program List Utility which outputs a fast "petty printed" listing with 
line numbers. Requiies Bastc09 or RunB. 

O 4 CCO obj only -- $39.95; wi Source - $79.9$ 

BTree Routines - Complete set of routines to allow simple implementation 
of keyed files - for your programs - pinning under Basic09. A real time 
saver and should be a part of every seiious programmers tool box 
O & CCO obj. only - $89 95 

Luddata PASCAL UTILITIES (Requires Pascal ver 3) 

XREF - produce a Cross Reference Listing of any text oriental to Pascal 
Source, 

INCLUDE - Include other Files in a Source Text, including Binaiy ♦ 
unlimited nesting. 

PROFILER - provides an Indented, Numbered, 'StrvaogranT of a Pascal 
Source Text Pile; view the overall structure of large pjograms. program 
integrity, etc. Supplied in Pascal Source Code; requires compilation. 
F.S.CCF--EACH 5" -$40j00, 8" ■ 150jQ0 

DUB from S.E. Media - A UnlFLEX BASIC decompiler Re-Cieale a 
Source Lisiing from UniFLEX Compiled basic Programs. Works w/ 
ML Versions of 6809 UniFLEX basic. 
V - $219,95 

LOW COST PROGRAM KITS from Southeast Media The following kits 
are available for Fl-EX, SK*DOS on either 5" or 8" Disk. 

1. BASIC TOOL.CHEST $29.95 
BUSTER.CMD: pretty printer 
UN£XR£RBAS: line crosa-rcferencer 
REMPAC.BAS, SPCPACBAS. COMPACBAS: 
remove superfluous code 

STRIPBAS: superfluous line-numbers striker 

2. FLEX,SK*DOStrnLrnESKiT $39.99 
CATS. CMD: alphabetically-sorted directory lisiing 
CATD.CMD: date-sorted directoiy lisiing 
COPYSORT.CMD: file copy, alphabet caljy 
COPYDATE.CMD: file copy, by date-order 
F1LEDATE.CMD: change file creation date 

INFOCMD (& INFOGMXCMD): tells disk attributes A contents 
RELINK.CMD <& REL&NK82): reorders fiagmented free chain 
RESQ.CMD: undelete* (recovers) a deleted file 
SECrORS.CMD; show sector order in free chain 
XLCMD: super text lister 



3. ASSEMBLERS/DISASSEMBLERS UTILITIES $39.95 

1JNEFEED.CMD: modularise' disassembler output 
MATH.CMD: decimal, hex, binary, octal conversions 
& tables 
SKIP.CMD: column stripper 

4. WORD - PROCESSOR SUPPORT UITL1TIES $49.95 
FULLSTOP.CMD: checks for capitalization 
BSTYOT.BAS (BAC): Stylo to dot-mauix printer 
NECPRINT.CMD: Stylo to dot-matrix printer Tiller code 

5. UTILITIES FOR INDEXING $49.95 
MENU.BAS: selects required program from list below 
INDEX.BAC: word index 

PHRASES.BAC: phrase index 

CONTENT.BAC: table of contents 

INDXSORT.BAC: fast alphabetic sort routine 

FORMATER.BAC: produce a 2 -column formatied index 

APPEND,BAC: append any number of files 

CHAR.BIN: line reader 
BAS1C09 TOOLS consist of 21 subroutines for Basic09. 
6 were written in C language and ihe lemainder in assembly. 
All the routines are compiled down to native machine code which 
makes them fast and compact. 

1. CF1LL - Tills a suing with characters 

2. DPEEK - Double peek 

3. DPOKE - Double poke 

4. FPOS - Current file position 

5. FSIZE « Frte size 

6. FTRIM - removes leading spaces from a string 

7. GETPR - returns ihe current process ID 

8. GETOPT - gels 32 byie option seciion 

9. GETUSR - gels die user ID 

10. GTIME - gets the lime 

1 1. INSERT - insert a siring uiio another 

12. LOWER - converts a string into lowercase 

13. READY •• Checks for available input 

14. SETPRIOR - changes a process priority 

15. StTrUSR - changes ihe user ID 

16. SETrOPr - set 32 byie option packet 

17. STIME -- sets ihe lime 

18. SPACE - adds spaces to a suing 

19. SWAP - swaps any two variables 

20. SYSCALL -- system call 

21- UPPER —converts a string to uppercase 

For OS-9 - $44.95 - Includes Source Code 
Limited Special . $19.95 

SOFTOOLS 

Ihe following piograms are included in object form for immediate 

application. PU9 source code available for customization, 

READ»ME Complete instruct ons for initial set-up and operation. Can even 

be printed out wiih ihe included text processor. 
CONFIG one lime system configuration. 

CHANGE changes words, characters, etc. globally to any text type file. 
CLEANTXT converts text Tiles to standard FLEX. SKMDOS files. 
COMMON compare two text files and reports differences. 
COMPARE another check file (hat reports mis-matched lines. 
CONCAT similar to FLEX, SK a DOS append but can also list files to scran- 
DOCUMENT for PL/9 source files. Very useful in examining parameter 

passing aspects of pioccdures. 
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ECHO e&HM to cither tora or file, 

FIND in unproved /w^oanmiml with "pauern" matching and wildcards. 
Vay useful. 

HEX dumps files in both hex and ASCII 

INCLUDE a file copy program Ihn will accept "include*" of other disk files. 

KWIC allows rouiing each word, on each line to the beginning. Very useful 
in a son program, elc. 

L1STDIR a directory listing program. Not super, but better than CAT. 

MEMSORT a high-speed text file sorter. Up to 10 fields may be sorted. 
Very fast. Veiy useful 

MULTICOL width of page, number of columns may be specified. A 
MUST! 

PAGE similar to LIST but allows for a page header, page width and depth. 
Adjust for CRT screen or pi inter as set up by CONFIG. A veiy smart 
print driver. Allows primer control commands.. 

REMOVE a fast Hie deleter. Careful, no prompts issued. Zap, and its gonel 

SCREEN a screen listing utility. Word wraps text to flit screen. Screen depth 
may be altered at run time. 

SORT a super version of MEMSORT. Ascending/descending order, up to 10 
keys, case over-ride, son on n* word and sort on characters if fUc is 
small enough, sons in RAM. If large tile, sort is constrained to size of 
your largest disk capacity. 

TPROC a small but nice text formatter. This is a complete formatter and has 
functions not found in other formatters. 

TRANSLIT sorts a file by a keyfields. Checks for duplications. Up to 10 
key files may be used. 

UNROTATE used with KWIC this program reads an mptil file and unfolds 
it a line at a time. If the file has been soiled each word wall be 
presented in teqooux. 

WC a word count utility. Can count words, characters or lines. 

NOTE: this set of utilities consists of 6 5-1/4" disks or 2 8" dbks, w/ 
source (PL9). 3 5-1/4" disks or I 8" disk w/o source. 
Complete set SPECIAL INTRO PRICE: 
5-1/4- w/source FLEX - SK'DOS - $129.95 
w/o source * $79.95 
g w w/sowve • $79.95 - w/b source $49.95 

FULL SCREEN FORMS DISPLAY from Computer Systems Consultants - 
* TSC Extended BASIC program supports any Serial Terminal wiih 
Cursor Control or Mem oiy -Mapped Video Displays; substantially 
extends ihe capabilities of the Program Designer by providing a table* 
driven method of describing and using Full Screen Displays. 
F, S and CCF, U . 125 .00, wi Source - $50 00 

SOLVE from S.H. Media - OS-9 Levels I and II only. A Symbolic Object/ 
Ix)gic Verification & Examine debugger. Including inline debugging, 
disassemble and assemble. SOLVE IS THE MOST COMPLETE 
DEBUGGER we have seen for ihe 6609 OS-9 seiiesl SOLVE does it 
all! With a rich selection of monitor, assembler, disassembler, 
environmental, execution and other miscellaneous commands. SOLVE 
is the MOST POWERFUL tool kit item you can own? Yet. SOLVE is 
simple to use I With complete documental eon. a map! Eveiyone who 
has ordeicd this package has raved! See review * 66 Micro Journal - 
December 1985. No blind 1 debugging here, full screen displays, rich 
and complete in information presented. Since review in 68 Micro 
Journal, this is our fastest moverl 

Levels M // only -OS-9 $69,95 



DISK UTILITIES 

OS.9 VDisk from S.E. Madia -- For Level I only. Use the Extended 
Memory capability of your SWTPC or Gimix CPU card (or similar 
formal DAT) for FAST Program Compiles. CMD execution, high speed 
inier-pioccss communications (without pipe buffers), etc * SAVE ihm 
System Memoiy. Virtual Disk size is variable in 4K increments up to 
960K. Some Assembly Required. 

Lev*// OS-9 obj, $79 95; wf Source $149.95 

O-F from S E. Media - Written in BASIC09 (with Source), includes: 

REFORMAT, a BASIC09 Program that reformats a chosen amount of 
an OS-9 disk to FLEX. SK'DOS Format so it can be used nonnally by 
FLEX, SK'DOS; and FLEX, a BASIC09 Program lhai does the actual 
read or wiite function to the special O-F Transfer Disk; user-friendly 
menu driven Read ihe FLEX, SK'DOS Directoty, Delete FLEX, 
SK*DOS Files, Copy both directions, etc. R£X. SK'DOS users use 
the special disk just like any other FLEX. SK*DOS disk 
O ■ 6809/68000 $79,95 

LSORT from S E. Media • A SORT/MERGE package for OS 9 (Level I & 
II only). Sorts records with lixed lengths or vaiiable lengths. Allows 
for either ascending or descending son Sorting can be done in either 
ASCII sequence or alternate collating sequence. Right, left or no 
justification of data fields available. li>ORT mcludes a full set of 
comments and errors messages. 
0S4 $85 00 

HIER from S.E. Media - HIER ts a modern hierarchal storage system for 
users under FLGC. SK m DOS It answers the needs of those who have 
hard disk capabilities on their systems, or many files on one disk - any 
sue. Using HIER a regular (any) FLEX, SK*DOS disk (8 - 5 - 
hard disk) can have sub directories. By ihis method the problems of 
assigning unique names to liles is less burdensome. Different liles wiih 
Ihe exact same name may be on the same disk, as long as they are in 
different directories. For the Winchester user this becomes a musL Sub- 
directories are the modem day solution that all current large systems 
use. Each directory looks to FLEX, SK'DOS like a regular flit;, 
except they have the extension '.DIRV A full set of directoiy handlmg 
programs are included, making the operation of HIER simple arid 
straightforward. A special install package is included to install illER to 
your particular version of FLEX, SK'DOS. Some assembly required. 
Install indicates each byte or reference change needed. Typically - 6 
byte changes in source (furnished) and one assembly of HIER is all that 
is required. No programming required! 
FLEX - SK*DOS $79,95 

COPYMULT from S.E. Media - Copy LARGE Disks to several smaller 
disks. FLEX, SK'DOS utilities allow ihe backup of ANY size disk to 
any SMALLER size diskettes (Hard Disk to floppies. 8" to 5". etc) by 
simply inserting diskette* as requested by COPYMULT. No fooling 
with directoiy deletions, etc. COPYMULT.CMD understands normal 
"copy" syntax and keeps up with files copied by maintaining directories 
for both host and receiving disk system. Also includes BACKUP.CMD 
to download any size "random" type file; RES"! ORE CMD to 
restructure copied "random" files for copying, or reoopying back to the 
host system; and WIEEUNK.CMD as a "bonus" utility that "relinks" 
the free chain of floppy or hard disk, eliminating fragmentation. 

Completely documented Assembly Language Source /lies included. ALL 4 
Programs (FLEX. SK'DOS. 8" or 5') $9950 
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COPYCAT from Luridata -- Pascal NOT required Allows reading TSC 
Mini-FLHX. SK-DOS. SSB DOS68, and Digital Research CP/M Disks 
while operating under SK # DOS , FLE:Xl.O, FLEX 2,0, or FLEX 9X> 
wiih 6800 or 6809 Systems. COPYCAT will not perform miracles, but. 
between the prog jam and the manual, you stand a good chance of 
accomplishing a transfer Also includes some Utilities to help oul 
Programs supplied in Modular Source Code (Assembly Language) to 
help solve unusual problems. 

F,SonJCCF5"~$5000 F.S 8" -$65.00 

VIRTUAL TERMINAL from S.I. Media - Allows one terminal to do the 
work of several, Ihe user may start as manyas eight tasks on one 
lenninal. under VIRTUAL TERMINAL and switch back and foitlt 
between tasks at will. No need lo exit each one; jusl jump back and 
forth, Complete with configuration program. The. best way to keep up 
with those background programs. 

6809 O A CCO - obj, only - $49,95 

FLEX,SK»DOS 1>ISK UTILITIES from Computer Systems Consultant* - 
Eight (8) different Assembly Language (w/ Source Code) ll>l:X f 
SK*D*S Utilities for every FLHX, SK^DOS Users Toolbox: Copy a 
File with CRC Errors; Test Disk for errors; Compare two Disks; a fast 
Disk Backup Progiam; Edit Disk Sectors; Linearize Free-Chain on the 
Disk; print Disk Identification; and Sort and Replace the Disk Diiedory 
(in sorted order). ♦• PLUS - Ten XBASIC Programs including: A 
BASIC Rcsequenccr wiih EXIKAs over ' RENUM" like check for 
missing label definitions, processes Disk lo Disk instead of in Memory. 
etc. Other programs Compute, Merge, or Generate Updates between 
two BASIC Piograms, cheek BASIC Sequence Numbers, compare two 
unsequenced files, and 5 Programs f«r establishing a Master Dtrecioiy 
of several Disks, and sorting, selecting, updating, and printing paginated 
listings of these files. A BASIC Cross-Reference Program, wiirien in 
Assembly Language, which provides an X-Ref Listing of the Variables 
and Reserved Words in TSC BASIC. XBASIC, and PRECOMPILHR 
BASIC Programs. 

ALL Utilities include Source (either BASIC or A-L. Source Cade). 
F, Sand CCF . $50.00 
BASIC Utilities ONLY for UriFLEX - $30,00 

MS-DOS.FLEX Transfer Utilities to OS-9 For 68XXX and CoCo* OS-9 
Systems Now READ - WRITE - DD* - DUMP - EXPLORE FLEX <fe 
MS-DOS Disk. Ihese Utilities come with a rich set of options allowing 
the transfer of text type files fromAo FLEX &. MS-DOS disks, •CoCo 
systems require the D,P. Johnson SDISK utilities and OS-9 and two 
drives of which one must be a "host" floppy. 

*CoCo Version: $69.95 68XXX Version $99,95 

MISCELLANEOUS 

TABULA RASA SPREADSHEET from Computer Systems Consultants -- 
TABULA RASA is similar lo DKSKTOP/PLAN; provides use of 
tabular computation schemes used for analysis of business, sales, and 
economic conditions. Menu driven; extensive icpu regeneration 
capabilities. Requires TSCs Extended BASIC. 

F. SandCCF, U - $50.00. w/ Source - $100 .00 
DYNACALC - Electronic Spread Shacl for the 6809 and 68000. 
U - $595.00, F. S. OS~9 and SPECIAL CCF - $250 00 
OS96&K -$299.00 

FULL SCREEN INVENTORY/MRP from Computer Systems Consultants 
Use the Full Screen Invemoiy Syslem/Maieiials Requirement Planning 



for maintaining inventories, Keeps item field file in alphabetical order 
for easier inquiry. Locate and/or prim records matching partial or 
complete item, description, vendor, or attributes; find backordcr or 
below stock levels. Printouts in item or vendor order. MRP capability 
for the maintenance and analysis of Hierarchical assemblies of items in 
the inventory file. Requires 'J'SC's Extended BASIC 

F, 5 and CCF, U - $50.00, wi Source - $10000 
FULL SCREEN MAILING LIST from Computer Systems Consultants - 
The Full Screen Mailing List System provides a means of maintaining 
simple mailing lists. Locale all records matching on partial or complete 
name, city, stale, zip. or attributes for Listings or Labels, etc. Requires 
TSCs Extended BASIC. 

F, 5 and CCF, U • $50.00, wf Source . $100,00 
DIET-TRAC Forecaster from S,E. Media -- An XBASIC progiam that plans 
a diet in terms of either calories and percentage of carbohydrates, 
pmlcins and fats (C P G%) or grams of Caibohydratc. Protein and Fat 
food exchanges of each of the six basic footi groups (vegetable, bread, 
meal, skim milk, fruit and fat) for a specific individual. Sex, Age. 
Height, Present Weight. Frame Size. Aojvity Level and Jiasal 
Metabolic Rate for nojmal mdividua] aiv taker) into a eoum Ideal 
weight and sustaining calories for amy weight ol the above individual 
are calculated, Provides number of days and daily calendar after weight 
goal and calorie plan is dctennined 

F.S -$59.95. U~ $89.95 



GAMES 

RAPIER - 6809 Chess Program from S E, Media ~ Requires FLEX, 

SK*DOS and Displays on Any Type Terminal. Features: Four levels of 
play. Swap side, Point scoring system. Two display boards. Change 
skill level. Solve Checkmate problems in 1-2-3-4 moves. Make move 
and swap sides, l*lay white or black. This Is one of the strongest 
CHESS programs running un any mkroaimpulcr, estitnated USCF 
Rating 1600+ (better than most 'club' players at higher leveh) 
F, SandCCF .$79,95 

NEW 

MS-DOSJFLEX Transfer Utilities For 68XXX and CoCo* OS-9 Systems. 
Now Read, Write. DIR, Dump and Explore FLEX &. MS-DOS Disks. 
Supplied with a rich set of options to explore and transfer text type files 
fromAo FLEX and MS-DOS disks. # CoCo OS-9 requires SDISK 
utilities A. two floppy drives. 
CCO S69.95 68XXX OS-9 S99.95 

Macintosh Software at Discounted Prices 

"Call for prices, it"ll be worth the savings." 

I NOTE: Changes 1 

I Price increase for SCULPTOR, sec advertising front of this catalog and 
other ad in this issue. Special price for 68 Micro Journal readers. 

I 2. Lower price for BASIC09 TOOLS, see Utilities section. 

I I 

y 3. New MS-DOS A FLEX to OS-9 Utilities, sec above , 



A'BilUblllljUacndj 
O»0J»-f,5.SK*DOS 

t-.KLEX,U. L'nJFI.Kk 
CCO • Color Computer OS-f 
CCf m Color Computer FLEX 




S out ft %ast Media 

590Q Cassandra Smitfi 3r# . Mxson, Tn. 37343 




•• Shipping •• 

Add 2% ILSJV.(mliL$2.S«) 
Foreign Surface Add 5% 
Foreign Airmail Add 10% 
Or C.O.D. dipping Onty 



•GS,9 !»■ Tridcmorfc of Mfcr»w»r» and Motoroi»-«FLRX and UMFLEX ir« Tr»d*mirk»of Tcclmlcat Synemi ConwHinti+SK+WS ti m Tr*d r m.rk of SIt.K Software Sr?t*n» t>rf t 
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A Tutorial Series 



By: R. D. Lurie 
9 Linda Street 
Leomi nister, MA 1 453 



Hashing is such an impor- 
tant part of computer pro- 
gramming that it is surprising 
how little one finds of it in the 
popular computer press. Usu- 
ally, if you want to know what 
hashing is or how to use it. you 
have to go to some rather eso- 
teric books on computer pro- 
gramming theory. Maybe, if 
you study computer program- 
ming in college, you have so 
much exposure to hashing 
that you tend to think that 
every body is sick of the sub- 
ject. Off hand, the only other 
places that I can recall seeing 
anything significant on hash- 
ing was one article in "Kilo- 
baud" and one in "Dr. Dobb's 
Journal/ Since I never stud- 
ied computer programming in 
college (1 majored in chemisry 
in 1952-1957). my limited in- 
formation on hashing has 
come from those two articles 
or from books that I could get 
the local library to borrow for 
me. 

My particular interest in 
hashing at this time is related 
to my interest in writing an 
efficient spelling checker. I 
have one which I wrote in 
assembly language a couple of 
years ago. and it works well 
enough, but it is somewhat 



HASHING 

awkward to use. I also made 
the mistake of trying to build a 
dictionary which was too gen- 
eral for my type of writing. I 
started out the dictionary by 
simply typing in words from 
the old (book) dictionary 
which I had been using for 
spelling references, without 
particular regard as to what 
the words were. As a result, 
the dictionary became clut- 
tered with words which I never 
used, but which slowed down 
the search for a word. 

Since the purpose of hash- 
ing is to generate a single 
number which is representa- 
tive of an entire word, it should 
be possible to find a word 
among a group of words, if 
they are somehow keyed by 
the hashing value. Even 
though there is an infinite 
number of possible hashing 
algorithms, the same word 
would always give the same 
hashing value if one only used 
the same algorithm to find a 
word as was used to store the 
word in the first place. This 
latter fact should be obvious, 
but it is easy to forget in the 
heat of programming; as a 
result, you may change the 
hashing algorithm* but forget 
to change the group of hashed 



words you are using as a test- 
bed. Obviously, this will cause 
all kinds of irritation while you 
try to figure out why the sys- 
tem suddenly no longer works! 

Hashing cannot provide a 
completely unique number to 
describe a word, so that you 
will eventually find a clash in 
values; this is known as a 
"collision." Once a collision 
occurs, some other way must 
be found to separate the 
words. 

The analogy that I like is 
that a hashing function sepa- 
rates a group of words into 
"buckets" of words, each of 
which has the same hashing 
value. If you could have 
enough buckets, there would 
never be a collision! 

The more complex the hash- 
ing function, the longer it 
takes to run, but it may not 
necessarily produce any bet- 
ter hashed values. Like most 
everything else in life, there is 
a trade-ofi: in this case one 
trades other factors for speed, 
and. possibly, reduced mem- 
ory consumption. In my opin- 
ion, one must accept that col- 
lisions will occur and plan for 
them, since there cannot be an 



November "68 



68 Micro Journal 



infinite number of buckets. It 
seems to me that the ideal 
hashing function will provide 
a uniform distribution of 
words across the span of 
buckets, so that there will be a 
minimum of bias introduced 
into what should be a random 
search, 

I think that the choice of the 
number of buckets is critical, 
but not necessarily obvious. 
When an opinion was given, 
the concensus appears to be 
that the number of buckets 
should be a prime number. I 
don't understand why. but I 
am willing to accept the state- 
ment: does it insure that there 
will never be a bucket #0? In 
all of my experiments with 
various hashing algorithms. I 
have never had a case of a 
hashing value of 0. Is that just 
a coincidence? 

Just think, at last we flnalily 
have a practical use for the 
"sieve" benchmark! 
The only real problem that I 
can see with the need for a 
prime number is that it is 
necessary to divide by this 
number in order to set the 
number of buckets. If you 
could use Just any number, 
you could use simple bit-shifts 
to do the division and. thereby, 
gain a significant speed ad- 
vantage. Using a prime forces 
you into a conventional divi- 
sion operation. In any case, 
the actual bucket selected is 
the remainder after the divi- 
sion. 

A Practical Example 

A article in "Computer Lan- 
guage" for November. 1986. by 
Dave Taylor contained a table 
of the 100 most common 



words in a million-word 
sample. I am not sure of the 
source text used for generat- 
ing this list, so I don't know 
how closely it fits my writing 
style, but a cursory examina- 
tion of Taylor's table looks like 
a pretty good first-approxima- 
tion. Table 1 summarizes the 
size of the words in the experi- 
ment and the number of each 
size. 



Number of 


Number of 


letters /word 


occu ranees 


1 


2 


2 


20 


3 


30 


4 


34 


5 


12 


6 


1 


7 


1 



total: 100 

Table 1. Number of words of each 
length in the sample tested. 

Obviously, the two 1 -letter 
words are "a" and "1/ The six- 
letter word is "before" and the 
seven-letterword is "through." 
The rest of the words are pretty 
much what you would expect. 
I used the data in his table and 
this months FOKIH program 
to generate the data in Table 2, 



Number of 
words per bucket 

1 
2 
3 
4 



Number of 
occurances 



39 
16 

7 
2 



total: 100 

Table 2. The result of hashing the 100 
most common words. 



The results are certainly in- 
structive. Only 64 of the pos- 
sible 313 buckets were occu- 
pied {about 20%). Of these 64 



buckets, only 2 (3%) contained 
as many as four words. The 
vast majority (61%) of the 64 
buckets which were occupied 
contained only one word. At 
this stage, at least, there is no 
evidence requiring that the al- 
gorithm be rejected; in fact, it 
looks good enough to me so 
that I will continue to use it for 
the rest of the program devel- 
opment. I may have to change 
it later, but I plan to stick with 
it for now. 

The Algorithm 

The algorithm is really quite 
simple. Each letter of the word 
is converted to its upper- case 
ASCII value and added to a 
running total. This sum is 
multiplied by the number of 
characters in the word, and 
the product is divided by a 
prime number. The remainder 
from this division is used as 
the hash value. 

My current plan is to use 
this program, and the result- 
ing dictionary, with all of my 
FORTHs. This means that I 
will be limited to a maximum 
of 3 1 5 sectors when I am using 
Steams 1 COLOR- FORTH. 1 
think that there will be enough 
room on the disk for the dic- 
tionary if I assign a single 
screen of 512 bytes to be a 
bucket. This means that I will 
not be able to use all of the 
capacity of an FF9 disk on a 
DSDD80 drive, but I will give it 
a try. 

FORTH can treat a screen as 
a random-access record; 
therefore, there is hardly a 
more convenient way to to 
handle the data. Since, as I 
have said. I have set an arbi- 
trary limit of 3 1 5 screens, or 
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records. I must select a divisor 
less than that. The largest 
prime number less than 315 
is, conveniently, 313. so very 
little of the disk will be wasted. 
I will talk about the rest of the 
program at another time. 
Right now. I want to discuss 
the FORIU specifics. 

Hashing In FORTH 

The three screens #1-3 
show Just the minimum nec- 
essary definitions in order to 
test and experiment with the 
algorithm. I will present the 
screen in the form I actually 
used in a later column. 

I originally wrote these defi- 
nitions without variables; it is 
really not too much trouble to 
keep the hash value and word 
length on the Data Stack, if 
you want to. since these defi- 
nitions are so short. However, 
you really do need to have 
many copies of these two val- 
ues readily available if you 
plan to do much more with the 
hash value. Therefore. I de- 
cided to go ahead and start off 
with the variables in order to 
save some rewriting later. 

This FORIH pro-am is 
most easily described by start- 
ing at screen #3. This is simply 
a definition which reads one 
word into the PAD at line 1. If 
you are using COLOR- 
FORTH, you will have to use 
the definition for EXPECT 
from my last column; you al- 
ready have EXPECT as part of 
FF9; you will have to deter- 
mine what to do with any other 
FORTH. 

The second line determins 
the length of the word just 
entered at the keyboard by 



using a variation on the FIND- 
FIRST-BL definition from my 
last column. FF9. or any other 
FORTH-83. already has this 
value in the USER variable 
called SPAN . so you can read 
that instead of running FIND- 
FIRST-NUL . In any case, you 
must store the character 
count into VLENGTH at this 
point. 

Line 3 does the actual calcu- 
lation of the hash value and 
stores the result into VHASH . 

The remainder of this defini- 
tion simply prints the results 
of the calculation in a conven- 
ient form for review. 

FIND-FIRST-NUL may not 
be necessary for your FORTH, 
but I included it because it will 
work with any FORIH that 1 
know of. In other words, this 
definition was included to in- 
sure transportability! 

The real point of the pro- 
gram is in screen #1. which 
has the definition of HASH . 
This definition must be en- 
tered with the word length 
already stored in VLENGTH 
and the address of the first 
character of the word on the 
Data Stack. I think that the 
comments do an adequate job 
explaining the purpose of each 
line, so I won't repeat that 
here. 

The algorithm used is the 
one stated previously, except 
that all letters are forced into 
capitals. The purpose of this is 
to reduce the size of the sum of 
the ASCII values, and to in- 
sure that "WORD". "Word", 
and "word" would all produce 
the same hashed value. I de- 
bated whether to force capitals 



or minuscules, since I wanted 
one or the other as a way to 
limit the size of the dictionary. 

I finally decided on capitals 
simply in order to reduce the 
absolute value of the sum of 
the ASCII values. Remember 
that the normal path for 
FORTH is to use sij^ied math, 
so that any number greater 
than 32767 will be treated as a 
negative number. This is no 
problem in the math, but it 
presents the logical problem of 
having buckets with negative 
numbers. The obvious solu- 
tion was as in line #13 with 
ABS where I simply forced a 
positive value. This probably 
has an effect on the random- 
ness of the bucket distribu- 
tion, but I don't know what it 
is. Certainly, this is a problem 
only with very long words, so it 
is only a kind of last-ditch 
defense against an unex- 
pected system crash. 



TIPS FOR BEGINNERS 

There is a hidden bug in 
screen # 1 which you may not 
see at first! Line #7 will not 
work for all cases! 

The use of the phrase 95 
AND was fine as a shortcut for 
quickly testing the hashing 
algorithm, but it would never 
do for the final pro-am. Can 
you see the problem? Ill save 
you some trouble by pointing 
it out. The phrase 95 AND will 
completely foul up punctua- 
tion marks! I want the diction- 
aiy to contain words like 
M canV and M A/D". and neither 
of these punctuation marks 
can get past 95 AND . 
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Ilie proper way to do this Job is shown in screen #4. Remember to test all the 


possible cases 


that you can, before committing to a final program. 




*SCF 


> #1 











VARIABLE VHASH 


\ 


hash value 




1 

2 

3 


VARIABLE VLENGTH 


\ 


word length 




: HASH < adr ) 


\ 


RDL080288 




4 


VHASH ! 


\ 


initialize sum 




5 


VLENGTH @ 1+ DO 


\ 


set loop limits 




6 


{ adr ) DUP I + 


ce \ 


fetch character 




7 


95 AND 


\ 


force upper case 




8 


VHASH + ! 


\ 


add to running total 




9 


LOOP 








10 


DROP 


\ 


scrap adr. 




11 


VLENGTH @ VHASH @ 


* 


\ length * sum 




12 


313 MOD 


\ 


divide by prime 




13 


ABS 


\ 


force positive number 




14 


VHASH > ; 


\ 


save hash value 


• 


SCR 


#2 











: FIND-F1R3T-NUL < adr - 


) \ RDL080288 




1 


-1 VLENGTH ! 


\ 


initialize count 




2 


BEGIN 








3 


DUP 


\ 


working copy of adr. 




4 


1 VLENGTH + ! 


\ 


incremnt count 




s 


VLENGTH @ 


\ 


fetch current count 




6 


< adr count ) + C@ 


\ 


fetch current character 




7 


0- 


\ 


is it a NUL? 




8 


UNTIL 


\ 


loop on FALSE flag 




9 


DROP ; 


\ 


scrap adr. 




SCR 


#3 











: TEST < - ) 


\ RDL080288 




1 


PAD 2 5 EXPECT 


\ 


fetch input word 




2 


PAD FIND-FIRST-NUL 


\ 


get word length 




3 


PAD HASH 


\ 


get hash value 




4 


PAD VLENGTH @ TYPE 


\ 


display word 




5 


5 SPACES 








6 


VLENGTH ? 








7 


VHASH ? 








8 


CR ; 








SCR 


#4 











: FORCE-CAPITAL ( cl - c2 ) 


\ RDL080288 




1 


DUP 95 > 


\ 


ASCII underline 




2 


IF 32 - 








3 


ENDIF ; 


\ 


use THEN for FF9 




+++ 








-■ 




FOR THOSE Wh 


Hi SI II) TO k SOW 


68 MICRO 

JOURNAL™| 


^^^^ m 



68 Mcro Journal 



November *86 



t n 



Mac-Watch 

For Those 
Needing la 

Know! 



68 MJ 




The Macintosh™ Section 
Reserved as 

A place for your thoughts 
And ours 

Mac -Watch 



A Review of Canvas Version 
1.02M from Deneba Software 

By James E. Law 
1806 Rock BliiffRd- 
Hixson 77V 37343 

Just whenyou thought you had all the graph- 
ics programs you need, along comes another one to 
tempt you. Magazines Hash full-page ads to per- 
suade you to let go of that hard-earned money to 
obtain those new features that your last purchase 
didn't have. Canvas, a full featured graphics 
program from Deneba Software claims to be a 

better mousetrap. Is it? Let's look at it. 

In this review, I will make a number of com- 
parisons to other programs that you are familiar 
with, such as Super Paint and MacPaint. This is 
the easiest way I know to explain the program with 
a minimum of words. 

Let's Get Started 

Canvas, like SuperPaint and other modern 
graphics programs, has both bitmap and draw 
imaging capabilities, Before we get into an analysis 
of features that are unique to one of these modes, 
let's look at some capabilities that are common to 
both modes, 

I really like the way Canvas allows you to view 
your work at various sizes. You can magnify your 
work up to 32 times regular size for easy editing of 
super high resolution paint objects. Going the 
other way, you can view your document at as little 
as 1/32 of its regular size. This will be essential 
for working on veiy large documents. (Canvas 
allows a work area of 9 It. by 9 ft J) This feature is 
easily and quickly selected and all tools are active in 



the alternate views. This feature allows full page 
previews regardless of page size. 

Canvas has an adjustable grid which may be 
used to aid layout. A ^snap-to - feature can be used 
with this grid for precise placement of 
drawing elements. While the grid can 
behidden.youhavetodothiseachtime 
you open a document. (Deneba, why 
didn't you provide a saveable "pref- 
erences" file?) Veitical and hori- 
zontal rules are provided with many 
more features than provided by com- 
peting programs. The iuler specifi- 
cation window allows you to set the 
units to be used (inches, pixels, 
centimeters, or custom) and the ma- 
jor and minor divisions (e.g., 10 di- 
visions per inch. 16 divisions per 
inch) An especially nice feature is the 
ability to "tear away" one or more 
copies of the iulers and place them 
wherever you wish on the screen. 

Painting the Town 
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The paint mode of Canvas has a 
menu veiy much like other paint 
programs with lasso, marquee, text, 
spray can, line, paint brush, paint 
can, pencil, eraser, and shapes tools. There's a 
fundamental difference from some other pro- 
grams, however, in that you can't Just select a 
paint tool and start to work. Instead, you must 
designate a portion of the screen to be a paint area. 
Once such an area is designated, you may begin to 
paint — but only in that area. This is definitely not 
as flexible an approach as used by several other 
graphics programs. To handle text, however. Can- 
vas has a leg up on the competition in that it allows 
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you to go back and edit text you have entered as long 
asyou have not clicked outside the text block. 

Double-clicking the paint brush reveals a 
menu of 40 brush shapes. Double-clicking the 
paint bucket reveals a menu of 76 fill patterns. 
Empty boxes are provided so that you can design 
and save up to 38 additional patterns. Double- 
clicking the text tool brings to view the text 
specification dialog box where you can set font, 
style, font size, and Justification. Any text size, up 
to 127, may be entered. A little faster approach to 
setting text specs Is to hold down the option key 
while selecting the text tool A hlerarchlal menu 
Instantly appears for making your choices of font, 
style, and size. Using the command key In this way 



lines, text, free hand shapes, and polygons. Poly- 
gons can be edited orsmoothed. Also. Canvas allows 
you to specify one or more control points on a 
polygon that remain as a sharp vertex or 
("cusps"). After the "Smooth Polygon" Is se- 
lected. (This would be helpful if you were drawing 
an ice cream cone.) 

You may group multiple objects together so 
that they can be handled as though they were one 
object. Objects and groups of objects may be 
"locked" so that they will not be inadvertently 
movedordeleted. You can. ofcourse, send objects to 
the back of other objects or bring them to the front. 

Objects may be aligned to a line by their top. 
bottom, sides, or center. Want to make a copy? It's 
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Canvas's 
"Object Specifica- 
tion'* Dialog Box 
Allows Precise 
Control ot Object 
Specifications 



allowsyou to chose the font. 

Canvas allows considerable control of this 
paint spray can nozzle. You may edit the flow 
pattern by Individual pixel as well as the flow rate 
(from to 25). At "0", no paint flows except 
when the cuisor is moving while at "25", paint 
flows freely even while the cursor Is still. 

Horizontal and vertical pen thickness may be 
set individually with 10 choices available for 
each. Pen patterns may be set in any one of 38 
patterns. 

For those who need to draw flow charts will 
appreciate the arrow lines. This option automati- 
cally terminates any line drawn with an arrow 
pointing in the designated direction. 

Draw it Again 

Most of Canvas* drawing tools are pretty 
standard. They include geometric shapes (rec- 
tangles, circles, rounded corner rectangles), 



quick and easy. Just select the object and click the 
copy icon in the tool box. Canvas allows you to get a 
lot fancier with your copying, however, by select- 
ing "Duplicate Options" from the edit menu. This 
feature provides an almost unbelievable control of 
the duplication process. You can specify: 

( a ) The number of copies 

( b ) ITie incremental amount each copy is 

to be rotated 
( c ) Tht horizontal and vertical offset of 

each copy. (This would be great for 

drawing foims) 
( d ) The amount by which each copy will 

be resized (enlarged or reduced). The 

horizontal and vertical dimensions can 

be resized separately. 
( e ) Each copy can be set to appear in a 

different pattern 
( f ) The center of rotation for rotated 

copies may be specified. 
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It didn't take me long to figure out that this is 
a very powerful feature. Truly Impressive ef- 
fects can be achieved with relatively little effort. 

This version of Canvas allows benzier curves 
with 4 control points. A more sophisticated ap- 
proach is promised for the next version of Canvas. 

Those who want the ultimate In precise con- 
trol of their drawings, the 'Object Specification" 
dialog box will be appreciated. It allows one to set 
the object type, the resolution of bit map objects 
(up to 2540 dpi). f)ll and pen patterns, pen shape 
and color, exact screen coordinates, and its scale 
(i.e.. It may be enlarged or reduced by the speci- 
fied percentage). 

Canvas provides a collection of special effects 
for manipulating objects. They may be rotated 90 
degrees, free rotated, and flipped horizontally or 
vertically. Objects can also be modified to show 1 
or 2 point perspective, skewed, or distorted. All 
these features print at the full resolution of you 
printer and also work with text if you have a post 
script laser printer. The manual says that with 
non-post script printers, only a "paint" image of 
the text will be printed. You can't believe every- 
thingyou read, however. On my Quick Draw laser 
printer (Personal Laser Writer from General 
Computers), rotated text printed at full 300 dpi 
resolution. 

Macros 

One feature provided by Canvas, but not by 
most of its competitors, is the ability tocreate and 
save draw-format Images as "macros." Any 
draw-format image may be turned into a macro by 
selecting it and choosing "Add Macro" from the 
Macro menu. The macro may then be named and 
recalled when ever needed. This image 'scrapbook' 
will preclude the need to redraw frequently used 
objects. This feature might be used by a draftsman 
to store electric circuit symbols, by an interior 
decorator to store a chair icon, or by a systems 
analyst to store standard flow chart symbols. 

Canvas DA 

One Canvasfeature that ishead and shoulders 
above the competition is its desk accessory version 
of the stand alone application. This 50K DA has 
about 80% of the features contained in the stand 
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alone applications. Some of the features not included 
in the DA version include: 

( a ) Duplicateoptlons 

(b) Edit patterns 

(c) Edit brushes 

( d ) Edit spray nozzle 

( e ) Object specifications dialog box 

( f ) Smooth/unsmooth polygons 

( g ) Custom rulers 

( h ) Grid specifications 

( i ) Free rotate 

( J ) Special eflects (perspective, skew. 

distort) 
( k ) Macro 

Don't let this list lead you to conclude that 
Canvas DA is skimpy on power. Instead, it is 
probably the most powerful and feature-laden 
graphics DA currently on the market. 

Basic Stuff 

Canvas runs on any Macintosh with at least 
512K. it's manual is. for the most part, fully 
adequate, it contains a number of illustrations 
which make the material easy to understand. 

Conclusion 

I like Canvas' power and its wealth of special 
features. I also like the easy to use hierarchial 
menus. The full-featured DA Included for the same 
money is also a big plus. I do not like the non- 
intuitive way it handles the designation of bit map 
and object Images. All-in-all, Canvas Is a high 
quality tool for generating graphics. At a street 
price of as little as $109, you will be getting your 
money's worth. 

Deneba Software has scheduled Version 2,0 of 
Canvas for release later this year. If you are inter- 
ested in graphics software, you'll want to watch for 
this release since a number of new features are 
promised. 

EOF 
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Add Graphics To your SBC 



With the vast selection and low 
price of single board computers, it 
has now become possible to as 
semble a very powerful system for 
a reasonable price. Unfortunately, 
most single board computers lack 
the integral graphic system found 
in most commercial PCs. 

A few SBC manufacturers offer 
graphic controls for their systems 
but they are usually veiy expen- 
sive high performance color con- 
trols. In addition to the cost of the 
control, you have to consider the 
cost of a video monitor. A good 
quality high resolution color 
monitor will set you back at least 
$500.00. It's apparent that adding 
graphic capabilities to a SBC will 
probably be too expensive for a lot 
of hobbyists. 

Because of this void in afford- 
able graphic controls, I decided to 
design a low cost graphic system 
that could be used with most 
SBC's. The general specifications 
for this system follow. 

Cost 

Component cost for the control 
isapproximately $50.00. You will 
also need a monochrome, TTL 
video monitor. I have seen EGA 
resolution (640 by 350) monitors 
advertised for about $120.00. If 
your system has an extra serial 



port, you may want to add a mouse 
device for another $80.00. For a 
total cost of about$250.00youcan 
give your SBC complete graphic 
work station capabilities. 

To keep the costofthe control at 
a minimum, 1 had to impose some 
definite limitations on the design. 
The major limitation is the control 
will only generate monochro- 
matic displays. This limitation not 
only keeps the cost of the control 
down but also saves a great deal on 
the cost of a video monitor. 

Performance 

High performance in a graphic 
control can only be obtained by 
using a specialized graphic proc- 
essor. There are many graphic 
processors available which vary 
widely in price and performance. 
The one I chose to use for this 
project is the NEC 7220. 

The NEC 7220 has been around 
for several years now and its price 
has slowly dropped to under 
$10.00. The NEC may not be as 
sophisticated as some of the newer 
generation graphic processors but 
then it doesn't cost several 
hundred dollars either. Besides, 
any lack in sophistication can be 
overcome with software. 



by Joseph D. Condon 
8072 172nd StreciW. 
Lakcville, MN 55044 



One major concern I had with 
the NEC was performance. The 
performance of any graphic proc- 
essor usually boils down to how 
fast and and how often display 
memory can be accessed by the 
graphic processor for drawing or 
data transfer functions. Since the 
NEC does not interleave display 
memory video refresh cycles with 
processor data access cycles, ac- 
tual drawing or data transfers can 
only occur during the blanked 
portion of the video display. This 
means the NEC's drawing con- 
troller will only be able to draw at 
a rate approximately equal in this 
design to 10 usee per pixel. That's 
fastenoughtodraw 1000 lines KM) 
pixels long in one second which is 
faster than most PC's. Data trans- 
fer cycles are limited to approxi- 
mately 10 usee per 16 bit word 
which will usually exceed the 
bandpass of atypical SBC expan- 
sion bus controlled by an intelli- 
gent driver 

One characteristic I found un- 
usual about the NEC 7220 was the 
lack of an interrupt request signal. 
Since most operating system I/O 
handlers are interrupt driven, I 
thought using the NEC would be 
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impractical. Instead, because of 
the required interface speed, it was 
faster to by-pass the operating 
systems I/O handlers altogether, 
and to do this you don't want an 
inteirupting device. As it turns 
out, the NEC 7220 fits well into 
the overall design and will provide 
more performance than most SBC 
applications will be able to utilize. 

Construction 

and 

Implementation 

To simplify construction, I 
have made every effort to keep the 
component count to a minimum. 
The total chip count is 20 and this 
includes the crystal oscillator. The 
only other components required 
are bypass capacitors, one pull-up 
resistor and one filter capacitor. 
All the necessary components can 
be purchased from Jameco Elec- 
tronics or JDR Micro Devices. Be 
sure to purchase the specification 
sheets for the NEC 7220. They 
contain all the information you 
should ever need to know about 
the controller. 

Actual construction technique 
and component layout is by no 
means fixed. The example layout 
is what I choose to use for my SBC 
which lives in an IBM XT case. 
The example layout produces a 
circuit board that can be mounted 
in an empty disk drive location 
and draw its power fiom the extra 
disk drive power connector. 

The host processor interface 
cable and connector will be 
unique for each brand or style of 
SBC. The pin out of the interface 
shown in the schematic is unique 



to my system and will have to be 
altered to work with a different 
SBC. As piesented, the interface 
used by the control is standard 
Motorola 6800/68000. If you 
choose to connect the control to an 
Intel processor based system, cer- 
tain minor changes in the controls 
inteiface logic will have to be 
made. Since the NEC 7220 was 
designed specifically for the Intel 
bus, the required changes should 
be fairly easy and straight forward 
however, the software drivers will 
not work on a non memory 
mapped I/O system. 

Display Format 

and 

Resolution 

The display foimat of the con- 
trol is extremely flexible. The for- 
mat and resolution are determined 
by the crystal oscillator frequency 
and the software driver. The fol- 
lowing table lists the four basic 
modes of operation. 



monitor. Some monitors tend to 
leak smoke when driven by im- 
proper syncronization signals. If 
you should have the misfortune of 
damaging your monitor or com- 
puter while using this control, you 
have my deepest sympathy but 
nothing more. 

Processor 

and Operating System 

Independence 

The only way to attain proces- 
sor and operating system inde- 
pendence is to write all of the soft- 
ware, including the drivers in a 
transportable programming lan- 
guage. The C language is well 
suited for this task and most 
SBC's have C compilers avail- 
able. As implemented, the driver 
talks diiectly to the control and the 
operating system is oblivious to 
the controls existence. This may 
be considered improperprocedure 
by some but it makes for a very 
quick and flexible interface. 



Mode 


Horc 


Vcn 


Oscillator Jumper 




CGA 


640 


240 


12,0 MHZ 


Low 


EGA! 


640 


350 


18,432 MHZ 


Low or Hi 


EGA2 


704 


350 


18 432 MHZ 


Low or Hi 


VGA 


640 


480 


24.0 MHZ 


Hi 



If you are adventurous, you can 
experiment with different values 
of crystal oscillators. Of course 
the initialize strings in the soft- 
ware will have to be modified 
according to the desired display 
foimat and resolution. 

Caution!!! 

You may have heard the state- 
ment "software cannot damage 
hardware". One major exception 
to that statement is the video 



The driver can be used as a 
library of high level functions 
easily accessible to user applica- 
tions. The driver depends upon a 
header file which contains spe- 
cific information relative to it's 
environment. The driver source 
file should never need to be modi- 
fied, only the header file. The 
sample demonstration program 
shows how the graphic program- 
ing environment is used. 
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How Does It Work? 

The NEC 7220 graphic control- 
ler is a fairly complex device and 
to try to cover all of its intricacies 
would be beyond the scope of this 
article and my knowledge. In- 
stead, I will try to present a brief 
overview of how the controller 
operates in this specific design. 

The control occupies two 
memory address locations on the 
standard Motorola peripheral bus. 
Using these two locations, the host 
computer is able to read the con- 
trollers status register, write com- 
mands to the controller and read 
and write data. Since the control 
can not generate interrupts, all 
communications with the device 
must be performed using the con- 
trollers status register and a poll- 
ing type of software driver. This 
type of interface is quicker than a 
normal interrupt driven handler 
but it does require a lot of the host 
processors lesources. 

The NEC graphic controller is 
best described as a special purpose 
micro processor. It has its own 
local memory airay which it con- 
trols by means of a multiplexed 
address/data bus and a single ad- 
dress latch enable signal (ALE). 
When ALE initiates a memory 
cycle, the supporting circuity 
must provide all of the necessary 
signals to pexfoim the actual 
memory cycle. In this design, a 
simple state machine generates 
these signals. The state machine is 
composed of two 8 bit shift regis- 
ters, several gates and several 
inverters. 



The controller can only perform 
two types of memory access 
cycles, read and read modify 
write. The state machine always 
performs a read cycle when ALE 
goes false. At the end of the read 
cycle, if ALE is still false, the state 
machine continues on with the 
modify portion of the read modify 
write cycle. When ALE is true, the 
state machine is held in a reset 
condition. 

The controller also provides all 
of the video control signals neces- 
saiy to drive a monitor. These 
control signals are latched by the 
slate machine before being pre- 
sented to the monitor The oscilla- 
tor provides the pixel shift clock 
and is divided by 2 for the state 
machine and by 8 for the control- 
ler. The jumper selection for low 
and high resolution operation was 
necessary to compensate for 
propagation delays in this design. 

The memory array is made up 
of four 64K by 4 bit memory de- 
vices which provide a 16 bit data 
path for the contioller and video 
shift registers. The memory ad- 
dresses generated by the control- 
ler are multiplexed into the mem- 
ory devices by the two 74LS257 *s 
which are controlled by the state 
machine. To guarantee opera- 
tional requirements of the mem- 
ory devices, the upper half of the 
address bus must be latched at 
RAS time by the 74LS273 which 
is also controlled by the state 
machine. The two 8 bit video shift 
registers are connected in series to 
provide a 16 bitpixel shift register 
who's output is gated by the video 
blanking signal and feed directly 
to the monitor as video data infor- 



mation. The shift registers are 
loaded from display memoiy at 
the end of each read cycle by the, 
you guessed it, state machine. The 
state machine is the heart of this 
design and its economical con- 
struction is the key to the controls 
simplicity and low cost. 

The C Driver 

Because of the complexity in 
command format and protocol of 
the NEC 7220, 1 decided to make 
thedriveras intelligent as possible 
with out sacrificing any of the 
controllers utility values. The 
driver directly accesses the con- 
troller via short integer pointers. 
The application program need 
never directly access the control, it 
should only call driver procedures 
which actually perform the de- 
sired function. Maintaining this 
level of hierarchy will help insure 
portability of the application. 

The C driver is composed of 
many individual procedures 
which eventually get linked into 
the application program. The 
driver requires the presence of a 
header file which defines several 
global constants. The application 
should also require this file during 
compilation. 

An example application pro- 
gram procedural call follows; 

g_init(VGA); 

This procedure initializes the 
control and configures it for the 
VGA mode of resolution (640 by 
480). The variable "VGA" is one 
of four pre-defined modes of op- 
eration defined in the header file. 
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The controller divides its dis- 
play memory into two separate 
windows, the upper and the 
lower. These two windows oper- 
ate independent of one another 
and can be of any reasonable size 
provided they both share the 
same width. The two windows 
can be independently scrolled. 
Veitical scroll resolution is in 
pixels and horizontal in words or 
units of 16 pixels. The upper 
window will always begin at the 
top of the display screen and the 
lower window can be positioned 
anywhere below the upper. The 
lower window can fill the entire 
screen, masking out the upper or 
it may not even appear on the 
screen. With the controls 
1 ,048,576 bits of pixel memory, a 
typical display configuration for 
an interactive CAD type program 
might be; 

upper = 1200 wide by 800 tall 
lower - 1200 wide by 73 tall 

Another example of a driver 
call is thelinedrawing procedure. 



^.^^(UPPERJlEP^WSOLIDXxUyl^ylX 

This procedure draws a line in 
the upper window from coordi- 
nate xl,yl to coordinate x2,y2. 
The u lpt" variable is a pre-de- 
fined array of line pattern images 
contained in the global file and 
the constant "SOLID" has been 
defined in the header file. The 
constant "REP" has been pre- 
defined and indicates that the line 
is to be drawn in replace mode 
(leplace all pixels with pattern 
image). The controller has 3 other 
modes of operation, set, reset and 



compliment. There are also 
driver proceduies that draw dots, 
rectangles, circles and rectangu- 
lar areas filled with pre-defined 8 
by 8 bit pixel patterns. The driver 
also has text related procedures 
which enable easy character or 
character string displaying. Text 
can be magnified up to 16 times, 
slanted and printed in any one of 
eight different directions. 

There is also a very fast area 
clear procedure that can clear the 
entire memoiy array in less than 
one second. To use the memory 
data read and write commands, 
you will have to study the speci- 
fication sheets. These functions 
are very application dependent 
and iequire additional logic on 
the application side of the pro- 
gram. 

The demonstration program in 
addition to the global, header, 
driver and makefile is a complete 
graphic programing environ- 
ment. By studying the listings 
you should be able to determine 
exactly how each procedure is 
used. The driver can be modified 
orexpanded if you like. You may 
even want to optimize some of 
the procedures by convening 
them to machine specific assem- 
bler routines. I have written a set 
of pixel block transfer (PIXBLT) 
routines in OS9/68000 assembler 
and they really perfoim well. The 
routines actually operate as a type 
of windowing system that allow 
many overlapping windows to 
appear on the screen simultane- 
ously without interfering with 
one another. Iftheie appears to be 
sufficient enthusiasm, I may 
present the routines later on in 



another aiticle. 

Conclusion 

Hopefully I have sparked your 
interest in computer graphics and 
you are willing to invest a little 
time and money for a worth while 
project. I really feel that a good 
quality graphic system is one of 
the most important assets of any 
personal computer system. With 
the proper software this control 
can be used to draw schematics, 
circuit board layouts, charts, 
tables, diagrams and even format 
text files. If you would like to see 
additional ai tides on software for 
this control, just send me or "68 
Micro Journal" a letter. Till next 
time... 



/* Graphic Deno Program */ 

# include <ctype.h> 
# include "graph- h" 

/* */ 

/* Main V 

/* */ 

int. main (argcargv) 
int argc; 
char *argv[J; 
{ 

int i; 

/* initialize control */ 
g_init (VMODE) ; 

/* define the two display 
windows * / 

g_dd(UPPEH.DHGT- 
MHGT, LOWER, MHGT) ; 

while (TRUE) { 



/*- 



»/ 



/* Line Display 
/* V 



'/ 



g_clr (LOWER, RES,0, 0, DWDT, MHGT) ; 
g_Str (ITWB*, REP. 3, 0, 2, 150, 40. "Line 
Display") ; 

gclr < UPPER, RES, 0, 0, OWDT. DHGT- 
MHGT); 

for <i-0; iO300; i+~10) ( 
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g line (UPPER, REP, 4lp^ (SOLID). i.O, 300, i); 

^ line (UPPER, REP, 4lpt (SOLID) , 300. i , 300-i, 300) ; 
Q ~1 ine (UPPER, REP, 4 lpt [ SOLID). 300-i, 300,0, 300-i); 
_1 ine (UPPER, REP, 4 lpt[ SOLID). 0. 300-i. i.0) ; 
~1 ine (UPPER. REP, 4 lpt [SOLID). 330,1,630. i); 
line (UPPER, REP, 4 lpt (SOLID) , 330+i . Q . 330 *i . 300) ; 
* 
sleep (5); 



/* Rectangle Display */ 

/• */ 

g_clr(LOWER,R£S, 0,0, DWDT, MHGT) ; 

gist r (LOWER. REP, 3,0, 2, 100. 40, "Rectangle Display") ; 

g_clr (UPPER, RES, 0, 0, DWDT, DHGT-MHGT) ; 

for <i -10; i< (DHGT-MHGT) /2;i+«10) ( 



g^chr<UPPER,REP,0< 
g~chr (UPPER, REP, 0, 



0,2,i*6, 
0.2, i*6. 

y 

g_str(UPPER. REP. 1.0.2.0. 45, 
g_str (UPPER, RBP, 2, 0. 2, 0, 80. 
g_str (UPPER, REP, 3, 0, 2, 0, 120, 
g st r (UPPER, REP. 4, 0.2. 0.170. 
g_str(UPPER,REP.5,0,2,0,230, 
g~str (UPPER, REP, 6, 0,2, 0,2*0. 
g~str (UPPER, REP, 7, 0,2, 0,3 60, 
g^str (UPPER, REP, 8. 0,2, 0,440, 
sleep (5); 



I 



10. i); 
20,1+64); 

"AaBbCcDdEe") 
"AaBbCcDdEe") 
"AaBbCcDdEe") 
"AaBbCcDdEe") 
"AaBbCcDdEe") 
"AaBbCcDdEe") 
"AaBbCcDdEe") 
"AaBbCcDdEe") 



o 

i 

3 
% 

i 



rct(UPPER.REP.4lpt[((i-10)/10>%16). 

DWDT/2-i, (DHGT-MHGT) /2-i,DWDT/2+i, (DHGT-MHGT) /2*i) ; 
) 
sleep{5); 



-V 



/* Circle Display •/ 

/* V 

g_cl r (LOWER, RES, 0, 0, DWDT. MHGT) ; 

gstr (LOWER, REP, 3,0,2, 125, 40, "Ci rcle Display") ; 

g_cl r (UPPER, RES, 0, 0, DWDT, DHGT-MHGT) ; 

for (i-10; i< (DHGT-KHGT) /2; 1+-10) ( 

circle (UPPER. REP, 4lpt [ ( (i-10) /10) 116) , i, DWDT/2. (DHGT-MHGT) /2) ; 

sleep (5) ; 



/* V 

/* Fill Pattern Display V 

/• */ 

g_clr (LOWER, RES, 0,0, DWDT, MHGT) ; 

g~str(LOWER,REP,3,0,2,50,40,"Fill Pattern Display"), 

g_cl r (UPPER, RES, 0, 0, DWDT, DHGT-MHGT) ; 

for(i-0;i<32;i+*) ( 
_f ret (UPPER, REP, 4 spt ( i ) , 

(i%B) *DWDT/8, (i/8) * (DHGT-MHGT) / 4, 
Ui%8)+l)*DWDT/8, ( (i/8) +1)* (DHGT-MHGT) /4> ; 

I 

sleep (5); 



-•/ 



/* Text Display */ 

/* •/ 

g_clr (LOWER, RES, 0, 0, DWDT, MHGT) ; 
g_str (LOWER, REP, 3,0,2, 125, 40, "Text Display") ; 
g^cl r (UPPER, RES, 0, 0, DWDT, DHGT-MHGT) ; 
for(i-0;i<64;i++) ( 



/•-— — — M.— .«====-/ 

/* Graphic Demo Global Variables •/ 

•include <ctype.h> 
•include *graph.h" 



/• Line Pattern Table V 
/• 16 Patterns •/ 

/* •/ 

int lpt[)-( 

Oxffff, 0x5555, 0x1111. 0x0101, 
0x0001, 0x3333, OxOfOf . OxOOf f, 
0x0155, 0x1555, OxOf f f , 0x3f f f , 
0x9f f 9, Oxcf f3, 0xe7e7. 0xf3cf , 



Solid Pattern Table */ 
32 Patterns •/ 



struct spe spt(]-( 

Oxffff, Oxffff, Oxffff, Oxffff. 
0xaa55, 0xaa55, 0xaa55, 0xaa55, 
0x5500, 0x5500, 0x5500, 0x5500. 
0x1100,0x4400,0x1100,0x4400, 

0x0000, 0x0011, 0x0000, 0x0011, 
0x0000, 0x0010, 0x0000, 0x0001, 
0x0000, 0x0000, 0x0000, 0x0001, 
0x0000, 0x0000, 0x0000, 0x0000, 

0x5555, 0x5555, 0x5555, 0x5555, 
0x1111,0x1111,0x1111,0x1111. 
0x0101,0x0101,0x0101,0x0101. 
0x3333,0x3333,0x3333,0x3333, 



1 

f 

i 



s 

s 



OxOfOf, OxOfOf,OxOfOf,OxOfOf, 
OxOOf f , OxOO f f , OxOOf f , OxOOf f , 
0x0000, OxOOf f , 0x0000, OxOOf f , 
0x0000, 0x0000, 0x0000, OxOOf f , 

Oxf fff, 0x0000, Oxffff, 0x0000, 
Oxffff,Oxffff, 0x0000, 0x0000, 
0xff88, 0x8888, Oxff 88, 0x8888, 
0xff80, 0x8080, 0x8080, 0x8080, 

Oxffff, 0x3333, Oxffff, 0x3333, 
Oxffff,Oxffff,OxOfOf,OxOfOf, 
0x5500,0x0100,0x0100,0x0100, 
0x8301 , 0x0000, 0x0000, 0x0001 , 

0x1122,0x4488,0x1122,0x4488, 
0x0102,0x0408,0x1020,0x4080, 
0x8844, 0x2211 , 0x8844 , 0x2211 , 
0x8040,0x2010,0x0804,0x0201, 

0x8142,0x2418,0x1824,0x4281, 
0x8888, 0x888f , 0x8888, 0x88f 8, 
0x41 3e, 0x2222, 0x223e, 0x4180, 
0x805d, 0x2241 , 0x4141 , 0x225d, 



GRAPHIC *C" Driver Routines 
for the NEC 7220 

Physical Interface 

by Joe Condon 
6/24/88 



* light pen detect */ 
Idef ine HBA 0x40 

w horizontal blank active 
Idefine VSA t? x 20 

* vertical sync active */ 
Idefine DMA 0x10 

* DMA execute •/ 
Idefine DIP 0x08 

* drawing in progress */ 
Idefine FFE 0x04 

* fifo empty V 
Idefine FFF 0x02 

* fifo full '/ 
•define DRY 
xOl 

data ready */ 



nclude <ctype.h> 
nclude *graph.h* 



static short int 
♦necstat^GRSWP, 
•neccird«GRFWC, 
*necrfifo=*GRFWC, 
*necwfifo=GRSWP; 



/* NEC Status Register Bit Definitions 

/* */ 

fdefine LPD 
x80 





/* 

/• NEC ( 


— */ 

Zonvrands 




/• 


* / 




/ 






Idefine 






E5ET 0x00 




Idefine 


SYNC 




*/ 






Idefine 


VSYNC 




x6e 


/* 




Idefine 


CCHAR 




heights 


•/ 




Idefine 


START 




display 


'/ 




Idefine 


BCTRL 




xOc 


/* 




Idefine 


ZOOM 




x46 


/* 




Idefine 


CURS 




x49 


/* 




Idefine 


PRAM 




x70 

Idefine 

x47 


/* 

PITCH 

/* 






Idefine 


WDAT 




x20 


/* 




Idefine 


MASK 




x4a 


/* 




Idefine 


FIGS 




parameters */ 




Idefine 


FIGD 




Idefine 


GCHRD 




x68 


/* 




Idefine 


RDAT 


ti 


ons */xa0 


/* 




Idefine 


CURD 




*/ 






Idefine 


LPRD 



Idefine DMAR 0xa4 




read */ 




Idefine DMAW 0x24 




write •/ 




/ - * / 




/ -' w / 




/» Initialize NEC 7220 


V 


/ m .+ 1 




j V m-m J 




/* aw = active words 


*/ 


/« vs - vert sync width 


•/ 


/ * hs * horz sync width 


•/ 


/» hfp - horz front prch 


V 


/» hbp = horz back porch 


*/ 


/• vfp » vert front prch 


V 


/* al - active lines 


*/ 


/• vbp « vert back porch 


*/ 


/-- -*/ 





request DMA 



/• request DMA 



OxOe 



reset gdc to idle*/ 

/*■ specify display format 



select master or slave mode */ 

0x4b /* specify character row 



0x6b 



/* end idle and unblank 



controls display blanking */ 

sepcify zoom factor */ 

set cursor position */ 

define display area */ 

sp«cify display width */ 

write data into display memory */ 

set mask register */ 

0x4c /* specify drawing 

0x6c /* draw the figure •/ 

draw graphic character */ 



void g_init (aw, vs, hs, hfp, hbp, vfp, al, vbp) 

int aw, vs, hs, hfp, hbp, vfp r al , vbp; 

( 

•neccmd=RESET; 

wrfifo<0xl6); 

wrfifoUw-2); 

wrfifo(vs«5l (hs-l)>; 

wrfifo< (hfp-l)<<2lvs»3); 

wrfifo(hbp-l); 

wrfifo(vfp); 

wrfifo(al); 

wrfifo(vbp<<2lal»8); 

wrcmd (PITCH) ; 

wrfifo(WWDT/16); 

wrcmd (VSYNC II); 

wrcmd (CCHAR); i 

wrfifo(O); 

wrfifo(O); 

wrfifo(O); 

wrcmd (ZOOM); 

wrfifo(O); 

wrcmd (START); 



/*- 
/* 
/* 
/* 



Define Display 

•/ 

uwa = upper window address 



/* uwh - upper window height 
/* Iwa - lower window address 
/* lwh - lower window height 
/* */ 



void g_dd (uwa, uwh, lwa, lwh) 
int uwa, uwh, lwa, lwh; 
< 
read light pen address wra»d(PRAM| 0) ; 



read data from display memory */ 
OxeO /* read cursor position 



OxcO 



8 



£ 



wrparm(uwa) ; 


wrfifo(O); 




wrflfo<uwh«4lvwa>>l6>; 
wrfifo<uwh»4) ; 


wrcnid(WDATImd); 
wrcmd(FIGO); 


/ 
/ 


' */ 


' Draw circle •/ 


wrparm(lwa) ; 


1 


/ 


r * / 


r , w j 


wrf i fo I lwh«4 1 lwa»16) ; 




/ 


* sa » screen address */ 


wrfifo(lwh»4); 


/• •/ 


/ 


■ md - mode •/ 


wrcmd (PITCH); 


/• Draw Line «/ 


/< 


* pat ■ line pattern •/ 


wrfifo(WNDT/16>; 


/• */ 


/ 


' r = circle radius •/ 


J 


/* sa •• screen address */ 


/ 


■ x = x coordinate •/ 


/• */ 


/• md - mode •/ 
/* xO - x coordinate •/ 
/• yO - y coordinate •/ 
/* xl - x coordinate •/ 


/ 
/ 1 


' y = y coordinate •/ 


i 1 

/• Clear Area •> 


/ / 

void g_circle (sa,md,pat, r, x, y) 
int sa, md, "pat , r, x, y; 


i § 


1* sa - screen address •> 


1 /• yl - y coordinate */ 


< 


/• Bd - mode •/ 
/• x - x coordinate •/ 


r * m t 


int d; 


/ 1 

void g_line(sa,md, pat,x0,y0, scl,yl) 


/* y - y coordinate •/ 


int sa, md, "pat, x0,y0,xl, yl; 


for (d-0;d<8;d44) ( 


/• w - area width •/ 


i 


g_arc ( sa, md, pa t,d, r, x,y) ; 


/• h - area height •/ 


static int 


\ 


/• •/ 


dtabl ) -( 0x9, 0x8, Ox a, Oxb, Oxe, Oxf , Oxd, Oxc ) ; 


I 


void g_clr (sa,md,x,y,v,h) 


int i,xt,yt,dl,ds; 




int sa,md,x,y,v,h; 
i 






► * / 


1-0; 


r Draw Arc */ 


int i,m,ww; 


xt-xl-xO; 
if(xt<-0) { 




* * f 


' sa - screen address */ 


ww-U(x+w-l)/16-x/16; 


xt-abs (xt) ; 


r 


r md - mode •/ 


for(i-0;i<ww;i4+) ( 


i*-4; 


n 


r pat « line pattern */ 


m-Oxffff; 


> 


r 


d - direction •/ 


if(fi) ml-0xffff«(x* 


16); yt*yl-y0; 


/* 


r = circle radius */ 


if(i— ww-1) mt-Oxffff 


■»<15-(x*w-l>%16); if(yt<-0) ( 


/■ 


r x - x coordinate •/ 


g_poscur (sa, x+i*16,y) 


; yt-abs(yt); 


r 


y = y coordinate •/ 


vrcmd(KASK); 
wrparm(m) ; 


i+-2; 

1 


i \ 


• / 


void g_arc(sa,md,pat,d, r,x,y) 


wrcmdfFIGS); 


if(xt>yt) ( 


int sa,md, *pat,d, r, x, y; 


wrfifo(O); 


dl*xt; 


I 


wrparm(h-l) ; 


ds-yt; 


static int t (8 j [2)-( 


wrcrud(WDATlmd); 


1 


-1,0, 


wrparro(Oxffff) ; 


else { 


0,-1, 


\ 


dl-yt; 


0,1, 


} 


ds-xt; 


-1,0, 




14-1; 


1,0, 


t* * f 


} 


0,1, 


1 I 


/• Draw Dot •/ 


g poseur (sa,x0, yO) ; 
wrcmd(FIGS); 


0,-1, 
1,0, 


l 1 


/• sa - screen address •/ 


wrfifo(dtab[iJ>; 


); 


/• md - mode •/ 


wrparm(dl) ; 




/• x - x coordinate •/ 


wrparm<2"d»-di) ; 


iUIr) { 


/• y m y coordinate •/ 


wrparm(2Mds-dl)); 


g dot (sa,md,x,y) ; 


/• •/ 


wrparm(2*d»); 


) 


void g_dot (sa,md,x,y) 


wrcmd(PRAHlOxOS); 


else ( 


int sa,ntd,x,y; 


w*parm( # p*t); 


g_posctfr(sa,x*t[d] (0J # r,y«rtld) (l]"r); 


< 


wrcad(HDATlmd) ; 


wrcmd(FIGS); 


g_poscur(sa,x,y) ; 


vrcmd(PIGD); 


wrfifo(0x20|d); 


vrcmd(PlGS); 


> 


wrparm( ((r*46341) +32168) >>16); 



s 



si 



s 



wrparm(r-l) ; 
wrparm(2Mr-l)); 
wrparm(-l) ; 
wrparm(O) ; 
wrcmd (PRAM | 0x08); 
wrparm('pat) ; 
wrcmd(WDATlmd) ; 
wrcmd (FIGD); 



Draw Rectangle 



sa ■ screen address 

nid - mode 

pat ■ pattern 

xO « x coordinate 

yO • y coordinate 

xl ■ x coordinate 

yl ■ y coordinate 



void g_rct (sa,md,pat,xO,yO,xl,yl) 

int sa,md, *pat, xO,yO,xl, yl; 

( 

int xt,yt; 

if((x0!-xl)44(y0r-yl)) { 
if(xO<-xl) xt=xO; 
else xt«xl; 
i£(yO<-yl) yt-yO; 
else yt-yl; 
g_poscur {sa,xt ( yt) ; 
wrcmd <FIGS); 
wrfifo(0x40); 
wrparm(3) ; 
wrparm(abs (yl-yO) ) ; 
wrparm<abs (xl-xO) ) ; 
wrparm(-l) ; 
wrparm(abs (yl-yO) ) ; 
wrcmd (PRANfOxOS) ; 
wrparm<*pat) ; 
wrcmd <WD ATI md) ; 
wrcrad(PIGD); 

else < 

g_line <sa,md, pat, xO, yO, xl, yl) ; 
) 



/* •/ 

/• Draw Pilled Rectangle •/ 

/• •/ 

/* sa • screen address •/ 



rod - mode 
pat * pattern 
xO = x coordinate 
yO «= y coordinate 
xl - x coordinate 
yl - y coordinate 



/• 

/• 

/' 

/• 

/• 

/♦ — — V 

void g_frct (sa,nid,pat,xO,yO,xl,yl) 

int sa,ind,*pat/xO,yO,xl,yl; 

I 

int i.xt,yt; 

if((x0!-xl)44(y0!-yl)) { 
if(xO<^xl) xt»xO; 
else xt-xl; 
if(yO<=yl) yt-yO; 
else yt*yl; 
g^poscur (sa,xt,yt) ; 
wrcnid (PIGS) ; 
wrfifo(OxlO); 
wrparm(abs (xl-xO) ) ; 
wrparm<abs (yl-yO) +-1) ; 
wrparro(abs (yl-yO) 4-1) ; 
«rcmd(PRAM|0x08); 
for(l-0;i<4;i>>) { 

wrfifo(<«pat)»8); 

wrfifo<*pat* + ); 
I 

wrcmd (W D AT tmd); 
wrcnid iZOOH) ; 
wrfifo(O); 
wrcmd (GCHRD); 








■/ 
raw Character String 


•/ 


/• 




-* / 






™ / 




/• 


sa 


■ screen address 




/• 


md 


- mode 




/• 


sz 


■ size 




/• 


si 


- slant 




/• 


dr 


- direction 




/* 


x ■ x coordinate 




/• 


y ■ y coordinate 




/• 


P 


■ char sting pointer 




/• 




• / 






/ 




vo 


id 


gstr (sa.md, sz, sl.dr. 


x,y,p) 


Int sa, md, sz, sl,dr,x,y; 




char 
i 


r p; 




1 


int 


c; 






static int cdt[8] [2)-< 






0, 


1, 





1.1. 

1.0. 

l.-l, 

0,-1, 

-1,-1, 

-1,0, 

-1.1. 

); 

while (c***p* + ) ( 

if <c<0x201c>0x?f) c-'?'; 

g_chr (sa,md,s*,sl,dr,x,y,c)j 

x*-cdt[dr] [01* (sz*l)*7; 

y-cdt[dr][l}« (sz*l)*7; 
) 



Draw Character 
•/ 



* sa - screen address */ 

* md » mode •/ 

♦ sz - size •/ 

• si - slant •/ 

• dr - direction */ 

• x • x coordinate •/ 

• y - y coordinate */ 

♦ c « character */ 



void g^chr (sa, rod, sz, sl,dr,x,y,c) 
nt sa. nid, sz, si, dr,x,y,c; 

int i; 

static unsigned char chrgen{128) [8] ■ ( 

31,17,17,17,17,17,31,0,31,1,1,1,1,1,1,0, 

4,4,4,4,4,4,31,0,31,10,4,4,4,10,31,0, 

0,4,13,21,22,4,0,0,31,17,27,21,27,17,31, 

16,16,8,8,5,5,2,0,0,0,0,14,17,17,31,0, 

7,3,5,8,8,16,16,0,2,4,8,31,8,4,2,0, 

31,0,0,31,0,0,31,0,4,4,4,4,21,10,4,0, 

4,21,10,4,21,10,4,0,0,0,31,10,4,0,0,0, 

14,17,27,21,27,17,14,0,14,17,17,21,17,17 

31,17,17,31,17,17,31,0,14,21,21,29,17,17 

14,17,17,29,21,21,14,0,14,17,17,23,21,21 

14,21,21,23,17,17,14,0,16,18,12,8,21,5,2 

14,10,10,10,10,10,27,0,16,16,16,31,16,16 

31,17,10,4,10,17,31,0,4,4,4,14,4,4,4,0, 

14,17,1,2,4,0,4,0,14,17,17,31,17,17,14,0 

31,21,21,23,17,17,31,0,0,0,4,10,31,0,0.0 

16,24,20,18,20,24,16,0,1,3,5,9,5,3,1,0, 

0,0,0,0,0,0,0,0,4,4,4,4,4,0,4,0, 

10,10,0,0,0,0,0,0,10,10,31,10,31,10,10,0 

4,30,5,14,20,15,4,0,3,19,8,4,2,25,24,0, 

2,5,5,2,21,9,22,0,4,4,4,0,0,0,0,0, 



0, 



,14,0, 

,14,0, 

,14,0, 

,0, 

,16,0, 



s 

s 

§ 



o 

s 

f 

8 



8,4,2,2.2,4,8,0,2,4,8,8,8,4,2,0, 

4,21,14,4,14,21,4,0,0,4,4,31,4,4,0,0, 

0,0,0,0,4,4,2,0,0,0,0,31,0,0,0,0, 

0,0,0,0,0,0,4,0,0,16,8,4,2,1,0,0, 

14,17,25,21,19,17,14,0,4,6,4,4,4,4,14,0, 

14,17,16,12,2,1,31,0,31,16,8,12,16,17,14,0, 

8,12,10,9,31,8,8,0,31,1,15,16,16,17,14,0, 

28,2,1,15,17,17,14,0,31,16,8,4,2,2,2,0, 

14,17,17,14,17,17,14,0,14,17.17,30,16,8,7,0, 

0,0,4,0,4,0,0,0,0,0,4,0,4,4,2,0, 

16,8,4,2,4,8,16,0,0,0,31,0,31,0,0,0, 

1,2,4,8,4,2,1,0,14,17,8,4,4,0,4,0, 

14,17,21,29,13,1,30,0,4,10,17,17,31,17,17,0, 

15,17,17,15,17,17,15,0,14,17,1,1,1,17,14,0, 

15,17,17,17,17,17,15,0,31,1,1,15,1,1,31,0, 

31,1,1,15,1,1,1,0,30,1,1,1,25,17,30,0, 

17,17,17,31,17,17,17,0,14,4,4,4,4,4,14,0, 

16,16,16,16,16,17,14,0,17,9,5,3,5,9,17,0, 

1,1,1,1,1,1,31,0,17,27,21,21,17,17,17,0, 

17,17,19,21,25,17,17,0,14,17,17,17,17,17,14,0, 

15,17,17,15,1,1,1,0,14,17,17,17,21,9,22,0, 

15,17,17,15,5,9,17,0,14,17,1,14,16,17,14,0, 

31,4,4,4,4,4,4,0,17,17,17,17,17,17,14,0, 

17,17,17,17,17,10,4,0,17,17,17,21,21,27,17,0, 

17,17,10,4,10,17,17,0,17,17,10,4,4,4,4,0, 

31,16,8,4,2,1,31,0,31,3,3,3,3,3,31,0, 

0,1,2,4,8,16,0,0,31,24,24,24,24,24,31,0, 

0,0,4,10,17,0,0,0,0,0,0,0,0,0,31,0, 

2,4,8,0,0,0,0,0,0,0,14,16,30,17,30,0, 

0,2,2,14,18,18,15,0,0,0,30,1,1,1,30,0, 

0,8,8,14,9,9,30,0,0,0,12,18,30,2,12,0, 

0,8,20,4,14,4,4,0,0,0,12,18,18,28,16,12, 

0,2,2,14,18,18,18,0,0,4,0,4,4,4,14,0, 

0,8,0,8,8,8,10,4,0,2,18,10,6,10,18,0, 

0,6,4,4,4,4,14,0,0,0.11,21,21,21,21,0, 

0,0,14,18,18,18,18,0,0,0,14,17,17,17,14,0, 

0,0,14,18,18,14,2,2,0,0,14,9,9,14,8,24, 

0,0,26,6,2,2,2,0,0,0,31,1,14,16,31,0, 

0,4,14,4,4,4,8,0,0,0,18,18,18,18,60,0, 

0,0,17,17,10,10,4,0,0,0,17,17,21,21,10,0, 

0,0,17,10,4,10,17,0,0,0,18,18,18,28,16,12, 

0,0,31,8,4,2,31,0,8,4,4,2,4,4,8,0, 

4,4,4,0,4,4,4,0,2,4,4,8,4,4,2,0, 

0,0,16,14,1,0,0,0,10,21,10,21,10,21,10,0, 

); 

g_poscur (sa,x,y); 

wrcmd(*RRMl0x08>; 

if<c<0| |c>127) c-'7'; 

for{i-0;i<8;i++) < 

wrfifo<chrgen[c) [i)J; 

) 

wrcmd(FIGS); 

wrfifo{sl«7|0xl0|dr); 

wrparm(7) ; 



wrparm<7} ; 




wrparm<7}; 




wrcmd(WDATliHd) ; 




wrcmd(20OM) ; 




wrfifo(sz); 




wrcmd(GCHRD); 
} 




/• */ 




/* Position Cursor 


V 


/• */ 




/* sa - screen address 


*/ 


/* x ■ x coordinate 


*/ 


/* y - y coordinate 


V 


/•- */ 




void g_poscur (sa,x,y) 




int sa,x,y; 

( 

int t; 







wrcmd(CURS); 

wrparm(sa*-(y*WWDT*x)/16>; 

wrfifo((x%16)«4Jsa»16); 



Write Command */ 



c ■ 



command 
— •/ 



/• 
/•- 
/• 
/•- 

void wrcudfc) 

int c; 

( 

while* MFFE i *necstat) ) (> 

w neccrnd"c; 
} 



/• Write Parameter 

/• •/ 

/* p ■ parameter 
/• •/ 

void wrparm(p) 

int p; 

< 

wrfifo(p); 

wrfifo(p»8) ; 






/* Write FIFO 

/•— •/ 

/• b - byte 
/• •/ 



void wrfifo(b) 

int b; 

( 

while (FFF i *necstat) () 

*necwfifo*b; 

i 

/• •/ 

/* Read FIFO */ 



int rdfifoO 

< 

while(!(DRY 4 *necstat)) i\ 
return ( (*necrf if o) *0xf f > ; 

I 

/•— •/ 

/* END */ 
/*— V 



/* Graphic Header File •/ 



/* External Declarations */ 

/*- •/ 

extern struct spe (int spet[4J); 
extern struct spe spt [ J ,- 
extern int lpt[); 



/*- 



-V 



/* Definitions 
/* V 



♦define REP 

tdefine COM 1 

*/ 

tdefine RES 2 

•define SET 3 

tdefine OFF 

tdefine OH 1 

tdefine TRUE 

/* boolean true value */ 

tdefine FALSE 

/* boolean false value •/ 

tdefine SOLID 

* solid line £ fill index 
tdefine VMODE 

GA 

* video mode desired •/ 
tdefine DWDT 

40 

* display width •/ 



replace mode */ 
compliment moqe 



/• reset mode */ 
/* set mode */ 
off value •/ 
on value •/ 



s 






Idefine DHGT 

60 /* display higth V 



41 



fdefine MHGT 

height */ 

fdefine WWOt 1200 

* window width •/ 
fdefine USHGT 600 

* upper screen hight •/ 
fdefine LSHGT 70 
height */ 

fdefine UPPER 

/* upper screen address */ 

fdefine LOWER UPPER* USHGT* WWDT/ 16 

* lower screen address */ 



/• menu window 



/• lower screen 



/*- 



-*/ 



/* Control Parameters •/ 

/* -•/ 

fdefine NEC 
X600000 

• MEC control address •/ 
fdefine GRSWP 

EC 

* read status* write parameter address */ 
idefine GRFWC NEC+2 /• read fifo, 
write command address •/ 

/* VGA init string for 640/460 display with 

24mhz clock »/ 

fdefine VGA 40,3,3,2,4,7,460,20 



Idefine CGA 40,3,3,4,2,7,240,10 



" Makefile for Graphic Demo Program • 



PRG = /h0/cmds/gdemo 

RDIR ~ /dd/rels 

CFLAGS = -t»/dd -w*/dd/lib *64 

FILES = $<RDIRj/gdemo.r $ <RDIR> /gdglb. r $(R0IR)/ 

gdrv. r 

SIPRG) : $ (FILES) 

cc 5 {FILES) $ (CFLAGS) -f-$ (PRG) 



/• EGA2 init string for 704/350 display with 

16.432mhz clock •/ 

fdefine EGA2 44,3,3,4,2,1,350,6 

/• EGA1 init string for 640/350 display with 

16.432mhz clock ♦/ 

fdefine EGAl 40,3,3,6,4,1,350,6 

/• CGA init string for 640/240 display with 
12mhz clock */ 






s 



FOR THOSE WH 
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DO 

A FLEX-09 Batch File Processor 

By: Dave Rowland 

Here. DO will Jump to the label 'reporterror' If any Flex command in the body of the batch file 
returns an error 

PAUSE <message> 

The text following the PAUSE command Is a message to the user prompting some action, eg to 
change a disk. The message will be output to the terminal, as described for the NOTE command, 
followed by the message "Press any key to continue ...\ DO then waits for the user to enter a charac- 
ter before continuing. 

The following example prompts the user for a new disk : 

PAUSE Insert system disk into drive 

REM <comment> ! <comment> 

Either of the above are comments in the batch file and are not processed by DO, except to replace 
command line parameters. 

SHirr 

This command causes the command line parameters 1 to 9 to be shifted by one, i.e. %2 becomes 
%1, %3 becomes %2 etc. The following example shows the effect of SHIFr : 

Parameters before SHIFr : 

%0 = test %1 = one %2 = two %3 = three %4 to %9 = null string 

Parameters after SHIFr : 

%0 = test %1 = two %2 = three %3 to %9 = null string 

The use of this can be demonstrated in the following batch file which deletes a list of files given as 
command line parameters : 

ECHO OFF ! ? Delete files on the command line ! IF *%1 = ' GOTO help ©loop IF EXIST %1 THEN 
delete %1 Y%c ELSE NOIE %1 doesn't exist ENDIF SHIFr IF NOT J %1 = • GOTO loop GOTO 
exit ? ©help NOTE Usage : DO DEL <ille> <flle> ... ©exit 

Note the use of extra quote characters on the first and third IF lines to allow testing for a null 
parameter. The first IF checks for no specified files, in which case the help information is output; the 
third IF checks for %1 becoming null, indicating that all of the files have been processed. 
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4.4 Chaining DO Batch Files 

It is possible to chain one batch file from another by calling DO in the first batch file with the 
required filename and parameters for the second batch file. Once the second batch file finishes, DO 
will return to Flex; it does not return to the first file. 

For example, a batch file may contain the following lines : 

! ! format file, print tt and return to Flex ! do format %Ldoc 

where %1 is a filename parameter passed into the batch file from the command line. 
5. MEMORY REQUIREMENTS 

DO consists of two pails; a non-resident part which loads into the transient program area (at 
$C10O) and a resident part which loads at $0100 but is moved to the top of memory by the non- 
resident part. The non-resident part is used to interpret the command line parameters and to relo- 
cate the resident part, adjusting MEMEND appropriately; it may be overwritten once DO is installed. 
The resident part interprets the batch file and executes the commands contained in it. 

The resident part of DO occupies about 2300 bytes, so this much less memoiy will be available to 
user programs. However, so long as the user programs take account of MEMEND this should not be a 
problem. 

On exit. DO will restore MEMEND to its previous value UNLESS some other program loaded by 
DO has modified MEMEND. in which case DO cannot be removed from memoiy and a warning mes- 
sage is output to the terminal. 

6- CAUTIONS 

There are a number of important points to bear in mind when running batch files : 

- It is not advisable to load other memoiy resident programs which also modify MEMEND unless 
they remove themselves before DO exits, otherwise DO cannot remove itself irom memoiy. If this 
situation occurs, a warning message will be output to the terminal and DO will exit to Flex without 
restoring MEMEND. 

- Because DO changes the INCH vector (at $CD0A). the I utility should not be used from instde a 
batch file; the O utility may be used however. 

- Because DO saves the TIYSET PS flag, any attempt to change this inside a batch file may be 
over- ridden when DO exits and restores the original value. 

7. EXAMPLE BATCH FILE 

This batch file example can be used to provide some measure of automation to the assembler 
program development cycle. It is called with one parameter which is either '+h' to display help 
information, or a filename (with no extension) which is the source file to be developed. The batch file 
automatically assigns the source file extension \txt\ Note that it is advisable to specify a drive num- 
ber to ensure that all files are put onto the same disk. 

ECHO OFF ! I DEV.BAT t Batch file for development of assembler programs ! Written by Dave 
Howland \ Version 1.1. 21st December 1987 ! ! If no parameters or *+h\ output help info ! IF *%1 = * 
GOTO help IF %1 = +h GOTO help ! ! Perform loop until user does not wish to ! continue the develop- 
ment cycle ! ©loop edit % J ,txt %t NOTE Assemble source file IF %c = y THEN IF EXIST 
%l.cmdTHEN delete %l.cmd yy ENDIF asmb %l.txt %l.cmd +ls ENDIF NOTE 
Continue development cycle IF %c = y GOTO loop GOTO exit f ! Output help info ! ©help NOTE Usage 
: do dev <file> \ ! Single exit point ! ©exit 

EOF To be continued next monih! 
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MOTOROLA IMC. 




tsm <U0.2*39 



AffLE INTS0OVCSS MACINTQ6H BASED ON MOTOROLA'S «M» 
(1090 LDHifefoaxn and tUf^n^^B^ta Men*** Lmt 

AUSTIN* Tcxtt, Seat. 21, J0tl — Aopk Q-*«Jvaar, lac. avi*a*»d ihat ioaew 
Madame cmvw qgopwup rwo Moavoia afatygn m die 6*030 (030) *od ihe 6SS8? 
(1U). The PC* KhiK, called the Macintosh Ik, use* Mo**i»Vi 16 MHz 030 as die carnal 
poena* cajinc and the 16MK*U2 ai ifWa^inj potoinwbaftcaiaa. 

The MadAaua IU ii Ox latest cm?*? ia die Mjpmuxh hoe w «ae McaoroU)** 6*000 
femilyo/miaTjjamucn. Moavuij't 68000 prnxuivdrivu rhr HcJAaM%» indSE The 
6*020 pn*«» aid 68111 mad) ajpnxsnor power the Mactatoth 11. a widely aaxpoi computer 
fcrbtfMfljM and anf0aa*ii>t appUtattoa*, QajqaaJMUty between tU c*tka*<*i b d« 6*000 
doily ttto*i foraajy tnifnbon of •oftwaro bom early Mactrnota cooler* an the new 
OXVbaaad Marimo-h IU 

"Apple «oni0» lo bavTvaie arith our 6*000 family of mieropnxxsKn." said Murray A. 
CfcAfa»a. asrtk* »k» prcaaagat and apical mamarr of MoayUj'g M uiymmi Produco 
Group {Auattfi.T**a*> "Our ctoMaj 6*000 fambr will pmv^c Apple witf> *e pnee and 
pa ^guma «M*d 10 pu*a da) lunai of the pcmviJ euz^rar asutzt** 

fcfcarxTX*'t030 errmoei a fuUy aura™*** «*n*» *od> a dual bus arcfeaxitsc, paged 
azmiy 0Maa*«iaKB unit Q^MMU) aad arpereT JSe-oyie daat and usnoen carisn on i upj)? 
catp. The PMMU b ragalrcd as mateim* and enulflBuajaa ttwi ra r u w m and tuppom 
aatjatej m* < «h— i*^ #j«xk» men as AAJX The data a*d narorji* caches taotaae syutm 
psfbf«a«BftycBaaiin(Qjiak±acGcaBa3dieoicMtrBBaJy uaod daa and isavuetiaax. 

>areus<d»3»pctrfr i« ht mma l caa3U a Dao 1a»w%yof 
«■«. The t*2 b «4t»«e and p» czaa^eifcaB wiift tft 
V.da;6*tlH*tl). The Ml. ike fix* daj to braak the 2 asUbw Wbaan barrio, 
toftfttt*!. 
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For futlier information: 
Scott f*o*»nao {714)625 5475 
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33 MHz 68030 32.BIT CPU BOARD 
WITH I MB NO.WA1T SRAM 
FOR VME MULTIPROCESSING 

Montclair, Calif., Sepiaaber 21. 1988- A VMEbus CPU board based on 
it* 33 MHz. 32 bit 68030 with dual cache memory and MMU and with a 68882 
co-procok*. up lo I MByte of dual ported zcro-wait-state SRAM, and unique 
uRonipi and booting capabilities to support high speed multiprocessing systems, is 
oow available from General Mien* Sysrtrrts Inc. 

"Ihe CMSV17 is baaed on the 68030 CPU device This provides up to 33 MHz 
speed (20 and 25 MHz availabk) with MMU; its d jail cache mnrxry provides an 
insxruciMin cache and a dm cache with tiarvard arcrmccturc. A 68882 floating point 
oo-pnjceisof further supports full 32-bit processing. 



Up to 1 MByte of aero wait-stale SRAM is orvboard This local menvwy can be 
protjcicd from unwanted writes yet addon DRAM or SRAM can still provide dual 
parting to (he rest of a mu1tifancttst» sysiem. Up to 512 KByte of EPROM (128 
KBytes of EEPROM) is also available, for program codes. Mezzanine modules can 
supply an additional 1 MByte of dual ponod SRAM or 4/16 MByte of dual ported 
DRAM on a local bus with the final module still lequbing only a single VME slot. 

The board both orvgjnales and savcts uutmi pts on the VMHwsl Unique 
location nsorotox/Yiutibox interrupt techniques allow real rime multiprocessing A 
681 S5 Bus Manager provides interrupts and manages mailbox locations, so 
arbitration between software and liardwarc interrupts is automatic and failsafe. 

A unique Bus Master Boot requires only one boot PROM for an entire multiple 
CPU sysiem. This lets code exec ule faster, provides smoother sysiem integration, 
and nukes PROM sockets available for extra RAM. 

The GMSV17 s configuration is fully programrrw We. It can be dynamically 
configured or can be pre~configurtd to aid production siiuattons. The configuration 
controller provides 3 timers which can also function as a real time clock. 

Two multiprotocol senal ports are also provided which can meel RS232/ 
RS42 2/485 specif cations, 

The board aJso acccpis SAM™ (Special Application Module) mezzanine 
modules, adding a variety of functions on local busses, eliminating the bottleneck 
of many VME systems, loo much mra/Iic on the VMRbus. SAM modules include 
various I/O (serial, paiallel), control functions {SCSI, floppies. Eihcmci. IEEE 
488) and even a second VSB bus which supports both masier and slave access to 
cvcty CPU and metnory in the system. Addition of SAM mezzaiune modules does 
not require an additional slot 

The CMSV17 is a double Eurocard 9 2" * 6,3" (234 mm x 160 mm) 
requiting a single slot in a VME card cage. The board alio is available forexlended 
temperature applications. 

Available operating systems for the CMS V17 include POOS. PSOS. VRTX. 
OS-9 and VMEPROM. Addiwrtal software includes a full featuied de bugger and 
on board diagnostics, 



GESPAC Inc. 
50 Waal Hoovar Av* 
M#»*> Arizona 15210 
Tel (602) 96 2 5559 
Fax. (602) 962 5750 



PRESS RELEASE 



Raadar Contact: Don Blzloa 

Editorial Contact: Cos ma Pabouclaldla 



FOR IMMEDIATE RELEASE 

rUXX Q4QS, KaTKBDKD TKNPSnATUXX 
«B0O0 BOAfUl OOMSWOa OMX>Y 70 nU\ 

**•*. AX t 5«pt«ob«r 13. 19*6— 3ESFAC haa ralaaaad on ell 
OC0* aingla board computer for tha 0-64 bua, daaioa«4 around 
tba 6*HC000 microprocaaaorr featuring vtiy low povar 
eonauffption amd high povarad 16-bit procaBaivg capability. 
7b« MPIp-4079 la a 4' by 6" luroboerd incoxpOrating aiauy 
peripheral devlcaai including 2 aarlal port*, a 4-cfcavxui«l */p 
converter, parallel I/O. a clock. KPRfiM and bet tery -becked 
RAM Keny other functlona cen be added to tnia eceaputar, ee 
it la fully coaepatible with the wide renge of t/O cerde 
aveileble for the fl-M bua. Software develi fant la fully 
•upported for tbe OS-9 reel-tiaaa operating ayateea 

The intc«duction of the MPL~a0?» oeaputer lacreeaea the 
attract ivanaaa of the 0**4 bua. Already k^awn for ita compact 
•iae» low coat end high performance, the <J-<4 bva will now be 
aultabla for low power coneueption. aingle-aupply 

appllcatlona, with the added option of extended indua trial 
terapereture renge. The board regulrea a aingle 5 V aupply, 
drawing a «ere 70 au\ 
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The KFL-4079 oaee • 68HC0O0 CFU running at 8 MR*, with higher 
epeed gredoe available. Up to 768 kS of KFRON and SRAM can be 
installed in tba eix evellable eoclcete, with a foil battary 
back-up of HAM, thua permitting non-volatile atorege. 

The CPCJ and <aeeK>ry availabla on board ara aufficiant to run 
most appllcatlona running undar tha oa-9 operotlng eye tea, 
witb drivers availabla for all tha peripberele, and full 
facllltlaa for program dovn-loedlug through tha aarial port, 
■nd aynbolic debugging. Tha uaar could alao develop prog r ana 
on an rai PC and download tha coda to tha board. 

industrial rmal-tlm* applicationa ara fully aupportad by tba 
preee&cm of a four- channel, 9-bit A/o converter, featuring a 
40 microaecond con vara ion time, Thara are alao 20 parallel 
I/O linaa available for logic level input*, two RS-232 aerial 
porta ara provided for common i eat lone: tha baud rataa are 
programmable. Tba KPL-4079 la equipped with auch ueeful local 
perlpbarala aa power failure detection, watchdog tlmmr, two 
16-bit time re and a battery-backed reel-tima clock with 
calendar. 
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PRESS RELEASE 



PROCOttIV ... Bridges the Gap between PLCs and Micros 



Windrush Micro Systems limjted are pleased to announce the immedieie 
evailabihty of their PflOCONM V family ol process control ter 8 ai kJ monitors. 

The PROCON-IV POLC is a 60000 based Programmable Data Logger Controller 
designed to bridge the gap between PLCs airi Microprocessor based systems, 

Many applications, perttcu tarry those involving real lime analogue signals, often 
exceed Ifce ablktles of PLCs and are not sufficient ^strfication to install a full-blown 
microprocessor based system. 

Windruah can provide PDLCs fu My programmed as a plug-in 'Black Box' for 
customers who do not wiah to become involved with programming the aysiem 
themselves. These solutions can communicate whh a PLC via the digital f/O 
signals or via the RS-232 pon as required 

PROCON-IV can be configured with a choice of input and outpul moduies. Floppy 
and hard disk options are also available for data togging and process monitoring 
applications. 32-blt 68020 processor modules with 6806*1 math coprocessor 
support an? a)so available tor heavy 'number Cftmchlng" front end processing. 

Programming facilities can be integrated into lh* PDLC or the programming can be 
done on a aeparate 'Development System The user has a choice of BASIC, 
PASCAL C. FORTRAN and PUS-6BK as system programming languages. If the 
application requires a reel I tine multitasking executive OS-9/68K Industrial can be 
supplied. 

A 'standard' PROCON-IV configuration which indudes an 8MH2 MC68000. 256Kb 
Nonvolatile ram. t28Kb ROM. clock calendar* RS-232C senaJ port. 4B optically 
isolated Inputs. 46 optically isolated outputs. 32 analogue inputs setts for less than 
£1995 (one off) 



For further Information contact Bill Dickinson at 40692) 404086 



Qz\ Commodore NEWS 



tor further information 
contact Lori croaa at 
M*i*hun~fJillard 

I213J 629-4974 



CUuiOQQflf XKTftODUCZS 8 KTGABYTE 
RAH EXPANSION CARD FOR THE AMIGA 2000 



Haat Cheater, PAr September 19, 198S — Commodore Bualnaaa 
Machlnee, Inc, today introduced tha A20SS aaaory axpanaion card 
for the commodore Amige 2000. When fully configured, the new a 
megabyte 8AM expenelon cerd provide* the mexinum possible aaaory 
for tha Aaiga 2000 while using a single expansion alot. Tha 
standard A20SS cerd coses configured with 2 magabytee of RAN and 
uaara cen edd en edditionel 6 magabytee of RAM uelng 1 megabit 
CRAM chipe. 

"The A205S givee users edditionel RAM required (or aora 
aophlatlceted Amiga 2000 applicationa auch ee J-0 enlmation end 
grephic doeign," eeid David Archesbeult, Commodore director of 
project marketing. "In addition, the increeeed RAM enhance* the 
nulti-teeklag features of the Aaiga by permitting edditionel 
teeke to run elmulteneouely . " 

The Amige 2000 eyetea auto-conf lguree for the edditionel 
memory which cen be ecceeeed end utilized by the CPU. 

The A20SB memory axpanaion card will be available through 
authorized Commodore Aaige daelere end bee e euggeeted retell 
price of $799. 

The Commodore Amiga 2000 la a powerful, oulti-teeklng, 
grephlce~orlented computer which excele In profeeelonal graphics 
and video applicationa. The unit feeturee e built-in 3 1/2-inch 
dlek drive, cuetom eound, anlmetion and grephics chlpe, a 
datacheble 92 -key keyboerd with eeperete numeric keypad and ten 
function keye end e two-button optoaechenlcel mouae. 

The open architecture deeign of the Aaiqe 2000 ellowe 
extensive internal expenelon with multl-proceeeor, multi-DOS 
optione end includee aeven full-else expenelon elote configured 
es Amlge or etenderd PC XT/AT elote, e CPU expenelon elot for 
6B020/6B030 end/or meth coproceeeore end video expenelon elot. 

The Amlge 2000 ie pert Of Commodore* a complete line of 
grepblce -oriented pereonal computers. In edditlon, Commodore 
eleo nenufecturee the IBM-competlble Profeeelonal Serlee III end 
Coamodora Colt coaputere. The Commodore 64 end Commodore 128 
heve en lnetelled ueer beee over ten million worldwide. 
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RBASIC FOR 68000 SK*DOS 

Announcing ihe availability of RBASIC, version 1.5, our full- 
featured BASIC inieipreier for SK*DOS running on 68D00 
machines. Upwards compatible wilh 6809 XBASIC (by 
Technical Systems Consultants) and our own 6809 RBASIC, 
though some modification will be necessary for some 
instructions, such as I/O redirection on Channel #0 and USR. 
Some of Lhc extra features include choice of Degrees or 
Radians mode, plus an ARC statement, for trig functions, 
APPEND and BLOCK-delete commands, AND A BUILT-IN 
LINE-EDITOR for intelligent terminals wilh Cursor-Left and 
Cursor-Right controls. 

Price in Canada is Si 25 Canadian plus S5 shipping and 
handling, or US S99.95 plus $5 within the continental US, 
Elsewhere, the price is US $99.95 plus SlO S/H. Payment 
may be made directly to Micronics Research by International 
Money Order payable to R. Jones (soiry, no credit cards). 
Of course, the 6809 version (currently 2.5) is still available 
directly from us at ihe terms set out above. 
Please Specify Disk-Formal required, unless specified 
otheiwise RBASIC will be shipped on a 5" Floppy, 80-Track, 
Single-Sided, Single-Density. 



Dear Deo, 

It'a esfasrrsBHlng, bot here's a eaaaary of ay type* in 
the Sept 88 iasee of 'Logically SpQaxLrjg 9 , so reader* 
can tajxfete the** l^ow. 

1. P. 22 last sentence m n-liyt m MX *fr-iap»f 

2. P. 23 fiaal expeeeaioa. Qmoe to 

(*♦©') Cec**'**) - atac+a.a'c+t'.bcte'b'c' - abc+a'D'c 1 

3. P.24 centre drawing of 4d ahculd loot liae 




left drsvloo. - blank contact should 



sentence 2 



ten afc'c' 



oding* 



4. P. 24 le 
have a label "a'. 

5. P. 26 para 1 

RTF ab'c. 

6. P. 26 penal t para Insert "in the 1- 
after the eords "... a pbl ia read aa "1" ♦ 

7. P. 27 lat expression - a'b + acCb* ♦ d v > BUT 
<b' «■ cM 

§. P. 27 roughly centre page would be better with 

parens* thoa a'b 0B (ac but HPT abed). 

9« P, 27 ijBPediately above K-eap, following the words 

•... expression of 65a. - add the follow* t 

The reason we can delete •ac* fron inside* the parens 

is f of course , because 

acCaczy) * «ac (a '+c , ^ v +7M^a l +acc > 4*cx '+*£?' 
where the first two tec** of the final expression are 
obviously self -car cell log, tstsjein) to the aaae foes 
at if we'd begun with acfxy) « 

10* p. 36 near top, amend to # c. Cbcd'J* cwdbcing to 
c, (od r ) • and finally .♦.■ 
U p. 36 fiaal R-aap needs '«P adfed to baadii^. 

Sorry about all thatl ltaie things eeea to have a way 
of creeping in despite ay best efforts 11 



Since sry last latter on the- PXR function, !**• been 
abarply reaindad that PR ia oBad a lot, pertioUar 
with the US» function. Ceepioo, in Bind that only an 
Integer can nonally be paaaad aa a peramewei in oa, 
sou reader a aaea adopted the useful technique of 
getting the asnsreaai of a Float ing-Poi at or String 
variable via PTB» and passing this address to a 
aacbi De-language sub-routine aa a pointer to a FP or 
String, sneaky, hub? aa a result of thie, I've re- 
instated pflt into RBASIC , and added a aev ftfcctioo 
fDME whereby a Global Rase Qiange can be ends, even to 
enfcecripted variable** 



Don Villi 

68 Micro Journal, 

5900 Oilmsnrira ^ith feed, 

Bixacn, tt 37343 



Sincerely, 



Preaidatst 



Classifieds. 



At Submilled - No Gutranlcei 



MUSTANG-020 20Mhz wilh 68881 . OS9 Professional Package & C 
$2900. Call Tom (615)842-4600. 

AT&T 7300 UNIX PC, UNIX V OS, 1MB Memory. 20 MB Hard 
Disk. 5'' Drive. Internal Modem, Mouse. Best Offer Gels It 

S+System with Cabinet, 20 Meg Hard Disk & 8 H Disk Drive wilh 
DMAF3 Controller Board. 1-X12 Terminal $3400. 

HARD DISK 10 Megabyte Drive - Seagate Model #41 2 $275. 
3 -Dual 8 H drive enclosure with power supply. New in box. $1 25 each. 
5-Siemcns 8'* Disk Drive. $100 each. 

Tano Outpost II. 56K. 2 5" DSDD Drives, FLEX. MUMPS, $495. 
QUMEQVT-102 terminal, like new, amber screen $250. or best offer. 

SWTPC S/09 with Motorola 128K RAM, 1-MPS2, i-Parallel Port. 

MP09CPU Card $900 complete. 

Tom (615) 842-4600 M-F 9AM to 5PM EST 

S+ System wilh cabinet. 20 Meg Hard Disk, 8*' Floopy. Tape Backup, 
512K. 16 Serial Ports. $2000 or best ofcr, 5 X12 Trcminals $500 ea . 
or best offer 
Terry (716) 235*4631 

*** 

Special Liquidation 
30 Motorola MVME 133. CPU Module, 68020, 12.5 Mhz. I Meg 
DRAM, $675 ea. 

30 Motorola MVME 2254. 1 Meg Memory Module, $380 ea. 
30 Motorola MVME 320A, W inches ter/Floopy Controller, ST506 
compatible, $1295 ea. 

30 Motorola MVME 332, Intelligent 8 Channel Serial Communica- 
tions Module, 68010 supports multiple protocols, S 1795 ea. 
35 Electronic Solutions 7 Slot VME Desktop Enclosures w/325 wait 
power supply, supports up to 4 mass storage devices, $2000 ea. 
2 Configured Systems, 40 Meg Seagate Winchester, 1 Meg Floopy, 
$3200 ea. 

Call or wiite J.G. (602) 95U3373. RPC, POBox C6000, Suite 162, 
Scottsdale, Az. 85261 ot 
Tom Williams, (615) 842-4600. 
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NEW! 

OmegaSoft Pascal for the 68020/68881 


P20K is a Pascal package thai will generate code for all of me 68000 
series processors* includng ihe 68881 coprocessor P20K will run on any 
68000 series computer running the OS- 9/68000 JMicroware) or POOS 
(Eying Research) operating systems wtlh 512K or more free memory 

The base package (P20K-9) includes the Compiler, Relocatable Macro 
Assemble/. Linking Loader, Screen Ec* I or. Pascal Shell. Linkage Creator. 
Host Debugger, Configuration manager. Installation program, and Patch 
utility. A new feature in this compiler is the ability to either link in the parts 
of the runtime needed by the program, or to use trap handlers for runtime 
access, to share the runtime library between programs. Complete operating 
system interface is also included using pascal procedures and functions. 
The host debugger allows debugging at both the Pascal and assembly 
language levels of programs that run on the host operating system Price 
for me base package is $575. 


The runtime source code option (P20K-R) is available for $100 and includes 
source code for the operating system interface routines as well as pasc&f 
runtime. 

The Utility source option (P20K-S) is available tot $275 and includes source 
code for the Screen Editor. Pascal Shell. Host Debugger, Patch utility, and 
Configuration manager. 

The T a/get debugger option (P20K-T) is $225 and includes object and 
source code. This program allows Pascal level and assembly level 
debugging in e system without operating system, by using a serial link 
connected to the host computer 

Prices do not Include shipping charges. Master-Card and Visa accepted, 
OmegaSoft is a registered trademark of Certified Software Corporation. 


Gespac SA, 3, Chemin des AuU. CM- 12 2 8. 
Geneva/Plan. les*Quaies. Switzerland 
TEL 022-713400, TLX 429989 

Elsoft AG, Zefgweg 12. CR- 5405 Badeo-Daitwir. 
Switzerland. TEL 056-833377. TLX 828275 


RCS Microsystems Ltd, 141 Uxbridge Road, 
Hampton Hill, Middlesex. England 
TEL 01.9792204, TLX 8951470 

Byte Studio Borken. Butenwall 14. D.4280 Borken, 

West Germany. 

TEL 02861 2147, TLX 813343 


Eltec Elektronik GmbH, Galileo- Galilei- St ralie. 
6500 Mainz 42, Postfach 65. West Germany 
TEL 06131 50031, TLX 4187273 

PEP Elektronik System e GmbH. Am Klosterwald 4 
0-8950 Kaufbaoren, West Germany 
TEL 08341-8974. TLX 541233 


CERTIFIED P.O. BOX 70. RANDOLPH, VT 05060 USA 
SO F" T W ARE TELEPHONE: (802) 728-4062 
CORPORATION FAX: (802) 728-4126 
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FLEX VSK-DOS VMS-DOS 



TM 



Transfer Utilities 

For 68XXX and CoCo* OS-9- Systems 

Now READ - WRITE - DIR - DUMP - EXPLORE 
FLEX, SK-DOS & MS-DOS Disk 

These Utilities come with a rich set of options allowing the 
transfer of text type files from/to FLEX & MS-DOS disks. 

*CoCo systems require the D.P. Johnson SDISK utilities and OS-9 and two 
drives of which one must be a "host" floppy. 
CoCo Version: $69.95 68XXX Version $99.95 



S.E. Media - 



*■ PO Box 849, Hixson.TN 37343 

615 842-6809 MC/Visa 
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SK*DOS768K 

Read the fine print to see what's in SK*DOS/68K; 



"i 



D Full DOS documentation plus on-line help D Multiple directories 
D User-installable device driven D Install up to 8 different I/O 
devices D Keyboard type-ahead □ Piint-screen G Virtual (RAM) 
disk D Disk cache □ Up to 10 d lives □ 5V4* or 3V5* floppy drives Q 
Hard drives to 64 megabytes each D I/O redirection to drives or I/O 
D Time/date stamping of liles □ File or disk write protect (even 
hard disk) Q Batch Tiles □ Support Tor 68000, 68010, 68020 D 
Monochrome or color video board suppoit O Read and write MS- 
DOS disk files □ 6809 Emulator □ Poweiful utilities such as copy-by- 
date, undelete, show differences between files, prompted delete, text 
file browse, and more • all included □ Simple Basic included Q Past 
assembler included □ Line editor included □ User support via 
newsletter and BBS □ Available software: C compiler, full Basic, 
screen editors, disassemblers, cross-aasem biers, spelling checker, text 
formatter, music editor, hard disk manager, ROM-based debugger, 
modem communications programs, etc. More compilers coming. D 
(Some features may not be implemented in all haidwaie manufac- 
turers' implementations.) 



Individual 



copies 



of 



less 



quantity or when bundled with hardware. Send 




SK'DOS/68K are $140; 
led 
L Tor our 6809 / 68K hardware and software 
catalog. Also available as part of our 
hardware/software educational course- 



K Software Systems Corp. 
P. O. Box 209J 
MLKlsco, NY10549 
(914)241-0287 
BBS <914) 241-3307 Fa* (914) 241-8607 




Apple 
Macintosh- 



S Users 



Save over a $1.000.00 

on PostScript 

Laser Printers! 

Faster - Finer Quality 

than the original Apple 

LaserWriter! 

New & Demos 

Cartridges-new-rebuilts 

-colors- 



In Chattanooga Callt 
615 842-4600 

QMS-AalhaHzed 



Data-Comp Division 

fHCfnt'U4?4lbi ]■ MUD 



SOFTWARE FOR 680x AND MSDOS 



SUPER SLEUTH DISASSEMBLERS 

EACH S99-FLEX $101-OS9 J100OJNIFLEX 

OBJECT-ONLY varaloni: EAC S*0*fLEK,OS9.COCO 

lma«Bci)vaty ganaraia •owrc* on dk«* with !*&•♦*. Indud* «*a1. binary «d<T»g 

»p*Cilv 8800.1..' l 3 ( 5<e i «'65O2 var*»n or 280/8060.5 vartton 

OSS vwun *bo P**»aa#t FLEX *vm*| obtact ft* ono*« OS9 

COCO DOS av*it*bi* In 8800,1 ,j2.5.!S,89/*S02 vattlon fool Z80>8080.5| only 

66910 «lMt»amblae S100-FLEX,OS9.UNIFLEX.MSDOS.UNIX.SKDOS 

CROSS-ASSEMBLERS WITH MACRO CAPABILITIES 

EACH SSO-FLEX.OSfl.UNIFLEX.MSDOS.UNIX.SKDOS 3/1100 ALL/$200 
spacily: lrJoi.oS02 J oaO(/11.6e04.6o05,6eOa.28,Z80,a04a 4051.8085,6*0(0 32000 
modulaf croaa aM*mbi*f» In C. with toad/unload uiikiias 
rnmn to* acfcftton*) ISO aacn, sioc ft* 3. ttoo tor M 

OEBUGGING SIMULATORS FOR POPULAR 8-BIT MICROPROCESSORS 
EACH $7S FLEX S100-OS* I80-UNIFLEX 
OSJECT-ONLY.varaJDBa: EACH SS0COCO FLEX.COCO OS9 
IniaractrvaFy iimuiai* procassori. indud* o>t*ti*<nOrj «orm*tt>>g. binary tiling 
IpadPy >or 6800/1, (14)5805, 650?, $809 OS*, Z60 FLEX 

ASSEMBLER COOE TRANSLATORS FOR 6502, 6800/1. 6809 

6502 to 6809 878-FLEX I6S-OS9 ItO-UNIFlEX 

8900/1 10 6809 8 6809 19 pO|||tof> Ind. ISO-FLEX 87S-OS9 SS0-UNIFLEX 

FULL-SCREEN XBASIC PROGRAMS «HN cvr*or coniroi 
AVAILABLE FOR FLEX. UNIFLEX. ANO MSOOS 
DISPLAY GENERATOR/OOCUMENTOR 880 *>*Onro*« «3 wtlhoul 

MAILING UST SYSTEM |100 w/aourc*, $S0 wllhoul 

INVENTORY WITH MAP UW dinner ISO wilhoul 

TABULA AASA SPREADSHEET $100 *;iOvt(«, $50 wllriOul 

DISK ANO XBASIC UTILITY PROGRAM LIBRARY 
S50-FLEX S30-UNIFLEXWSOOS 

ed* do* sactoi*. tod directory, maintain manor catalog, do da* «xr*. 
rasaguanca soma or an of BASIC program, xfaf BASIC program, ale. 
norvFLEX miam mduda *ort and rtsaquancar on)y 

CMOOEM TELECOMMUNfCATlONS PROGRAM 

$100.FLEX.OSBi,UNlFLEX,MSDOS,UNIX,SKDOS 
OBJECTONLY vara ona EACH 150 

manu4r+*an Mh larmlnal moda. Ma Iranifar. MOOEM7. XON XOFF ale. 
tor COCO and noo-COCO; drfc** taanxai COCO modom pel up to 2400 Baud 



DISKETTES & SERVICES 

5.25" OISKETTES 

EACH 10.PACK 57,50 SSSDySSDD/DSDD 

Amarican m*jt guaranteed 100% Outftijr, wdr» Tyvo* MK*aia. hub ring*. 



ADDITIONAL SERVICES FOR THE COMPUTING COMMUNITY 
CUSTOMIZED PROGRAMMING 

*e wtd cvHcxTviia any or lh* program* ctacrfeod in m* j^Miwineni or in our 
brochura tor spaciaRjad customer uu w la oovar naw poc*-aior9; in* charge 
lor *u<*> cuflomvatioo dapand* «po*» in* *na/WUb*hy or $ha mod>tlcatk>n» 

CONTRACT PROGRAMMING 

w* will craala naw programs or modtry aiktlug programa on i ooniraci btti*. 
a «awic# wa My* provided tor ov*r iw*mv yat/t: iHa oMncufari on which «* 
nava partomi^ oooAroct ptocfamminQ Inc*** moal oopvtar modal* C4 
maintrama*. avJUKng IBM. B*j"t-V». UnkvaC. Hor»Y»*C mnt popular 
mode** ol mfniaompulanl. indUSnQ DEC. IBM, 00. HP, AT&T, and mo«t 
popular brand* of microctaTpLlsr*. Jndudlno 6000/1, 6809. 280. 6502. 
880»0. trtlnp moil vpropruji* linguaooi and op*r«t»Q tytttm* on tytiarn* 
rangi«9 in %iza from laro* tt*y%«Tunun)c«1lon« to **r»cla board 0On|ro8ar«, 
lha d^irga toe ooohact p/ogrartMnlnp i» \nuMfy by ifta hour or by ma laak 

CONSULTING 

** o*1*r * w<d* r&rig a o< buiinai* and lachnbcol aoMim^c »*rvioas, including 
iamlnar*. advlo*. Itakung, and d«*^jn. on any topic ralctod to oompoiari; 
tn* cna/ga tor oonaulirng la noemaly b«$od upon urn*, naval, and atpamas 



Compuitr Syaltm9 Conaotlanla, inc, 

1454 Lfttla Line, Conyari, GA 30207 

Ttltphont 404-483-4570 or 1717 

We laka ordara al any lima, bul plan 
long dlacoaaloni attar 6. II poaaibla. 

Coniacl U9 aboul catalog, daalar, dlacounia, and aervlce* 
Moal programs in *ourc«: glva compuitr, OS, dlak aiza. 
25% oft mulllpla purchases of aame program on one order. 
VISA and MASTER CARO accepted; US lunda only, plaase. 
Add GA aales lax (I In GA) and 5% snipping. 

(UNIFLEX m 1m*rt^*l 9yO*T« Cam**an*v 08/9 McvwarB, 

COCO TonoyAaSOafi u n^roaxoos &«* &yr«xa 
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Clearbrook Software Group (604)853-9 11 8 



CSG IMS Is THE full featured relation- 
al database manager for OS9/OSK 
The comprehensive structured ap- 
plication language and B + Tree index 
structures make CSG IMS the ideal 
tool for ffila-lntensive applications. 

CSG fMS for CoCo2/3 OS9 L1/2 (singlt user) $169.95 

CSG IMS for OS9 L2 Of 680Q0(muHJ user) $495.00 

CSG IMS demo with manual $30 




MSF - MSDos File Manager for CoCo 3/OS9 Level 2 
allows you to use MSDos disks directly under OS9. 

Requires CoCo 3, OS9 12. SDISK3 driver $45.00 



SER1NA - System Mode Debugger for Q$9 L2 
allows you to trace execution of any system* module, 
set break points, assemble and disassemble code and 
examine and change memory. 

Requires CoCo3 or Glmix 11, OS9 L2 & 80 col. terminal $139.00 



ERINA - Symbolic User Mode Debugger for OS9 
lets you find bugs by displaying the machine state and 
Instuctlons being executed. Set break points, change 
memory, assemble and disassemble code. 

Requires 80 column display, OS9 Lt/2 $69.00 



Shipping: N. America - $5. Overseas - $10 
Clearbrook Software Group P.O. Box 800CM99, Sumas. WA 98295 

OSS It ■ timdmmmt* of Mterowua Syitimi Corp., MSOo* l» a lr«J#n»rt( of Mtefoaoft Corp. 



SPECIAL 

ATARI™ 

& 

OS-9™ 



NOW! 

If you have either the 

Atari 520 or 1040 - 

you can take 

advantage of the 

"bargain of a lifetime' 7 

OS-9 68K and BASIC 

all for the low, low price of: 



$150.00 

Call or Write 

S.E. AA»<dio 

5900 Cassandra Smith Rd. 

Hixson. TNI 37343 

615 842-4601 






■^ 



ATARI & AMIGA 
CALL 

As most of you know, we are veiy sensitive to your 
wishes, as concerns the contents of these pages. One of 
the things that many of you have repeatedly written or 
called about is coverage for the Atari 4 Amiga™ series of 
68000 computers. 

Actually we haven't been too keen on those systems 
due to a lack of serious software. They were mainly 
expensive p gamc-toy* systems. However, recently we are 
seeing moie and more honest- to goodness serious soft- 
ware for the Atari & Amiga machines. That makes a differ- 
ence, I feel that we are ready tostart some serious looking 
into a section for the Atari & Amiga computers. Especially 
so since OS-9 is now tunning on the Atari (review copy on 
the way for evaluation and repoit to you) and rumoiedfor 
the Amiga. Many of you are doing all kinds of interesting 
things on these systems. By sharing we all benefit. 

This I must stress -Input from you on the Atari 
& Amiga. As most of you are aware, we are a 
"contributor supported** magazine. That means 
that YOU have to do your part. Which is the way it 
has been for over 10 years. We need articles, tech- 
nical, reviews of hardware and software, pro- 
gramming (ali languages) and the many other fac- 
ets of support that we have pursued for these many 
years. Also I will need several to volunteer to do 
regular columns on the Atari & Amiga systems. 
Without constant input we cant make it fly! So, if 
you do your part, we certainly will do ours. How 
about it, drop me a line or give me a phone call and 
I will get additional information right back to you. 
We need your input and support if this is to succeed) 

DMW 
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68 Micro Journal 



THE 6800-6809 BOOKS 
..HEAR YE. REAR 



OS-9 
User Notes 



By: Peter Dibble 

The publishers of 68' Micro Journal are proud Co oake 
available the publication of Peter Dibbles 

0S9 usei ions 

Information for the 1 EC OTHER to the PEO, 
legular or CoCo 0S9 



Using 0S9 

HELP, HINTS, PROBLEMS, REVIEWS, SUGGESTIONS, COMPLAINTS, 

OSS STANDARDS, Generating a New Bootstrap, Buljdlng a 

new System Disk, 0S9 Users Croup, etc. 

Progran Interfacing to OS9 

DEVICE DESCRIPTORS, DIRECTORIES, "PORKS**, PROTECTION, 
"SUSPEND STATE", PIPES', "INPUT/OUTPVT SYSTEM", etc. 




Programing Language ■ 

Aasembly Language Programs and Interfacing; Baslc09 f C, 
Paacal, and Cobol reviews, programs, and uses; etc. 

Disks Include 
Vo typing nil the Source Listings In. Source Code and, 
where applicable, assembled or complied Operating 
Programs. The Source and the Discussions In the 
Colunns can be used **aa la", or as a "Starting Point** 
for developing your OWN more powerful Programs. 
Programs sometimes use multiple Languages such as s 
abort Assembly Language Routine for reading a 
Directory, which Is then "piped** to s Baslc09 Routine 
for output formatting, etc. 



BOOK $9.95 

Typeset -- w/ Source Listings 

<3-Hole Punched; 8 x II) 

Deluxa tinder S5.50 



FLEX™ 
USER NOTES 

By: Ronald Anderson 

The publishers of 68 MICRO JOURNAL are proud to 
ake available the publication of Ron Anderson's P1.EI 
OSIS NOTES, In book form. This popular monthly column 
has been a regular feature in 68* MICRO JOURNAL SINCE 
1979. It has earned the respect of thousands of 
68 MICRO JOURNAL readers over the years. In fact, 
s coluotn has been described as the 'Bible* for 68XX 
users, by some of the world's leading microprocessor 
professionals. The aost needed snd popular 68XX book 
available. Over the years Ron's column has been one of 
the most popular In 68 MICRO JOURNAL. And of course 
68 MICRO JOURNAL Is the moat popular 68XX magazine 
published. 

Listed below are a few of the TUT files Included In the 
book and on diskette. 

All TEXT files in Ihe book are on the rtsks 



LOGO CI File load program to offsei memory — ASM PIC 

MEMO VE C 1 Memory move program —ASM PIC 

DUMP C 1 Pnnler dump program — uses LOGO — ASM PIC 

SUBTESTC1 Simulaiion of 6800 code 10 6609. show differences — ASM 

TERM EM C2 Modem input to disk (or other porl inpul 1o disk) — ASM 

M C2 Output a file to modem (or another porl) — ASM 

PRINT C3 Parallel (enhanced) printer driver — ASM 

MOOEM C2 TTL output to CRT and modem (or other porl) — ASM 

SCIPKG Cl Scientific math routines — PASCAL 

U C4 Mini -monitor, disk resident, many useful funcDons — ASM 

PRINT C4 Parallel pnnler driver, wilhoul PFLAG — ASM 

SETCf? Set printer modes — ASM 

SETBAS1 C5 Sel pnnler modes — A-BASlC 

NOTE: .CI..C2, etc. "Chapter 1, Chapter 2, etc. 



••Over 30 TEXT files included Is ASM (a««ewbler>-PASCAL- 
PIC (position Independent code) TSC 6ASIC-C, etc. 



All Source Listings on Disk 

1-8** SS, SD Disk $14.95 

2-5" SS, DO Disks 524.95 



Book only: $7.95 + $2.50 S/H 
With disk: 5" $20.90 + $2.50 S/H 

With disk: 8" $22.90 + $2.50 S/H 

Shipping A Handling S3 50 per Boot. $2 30 pet Disk set 

Foreign Orders Add $4.50 Surface Mail 
orS7.00 AirMiil 

If ptying by check - Please allow 4-c" weeks delivery 

• All Currency in US. Dollus 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 

"FLEX is s trademark of Technical Systems Consultants 

"0S9 Is a trademark of ttlcrovare and Motorola 

**6tT Micro Journal la a trademark of Computer Publishing Inc. 



(■;;'.■ 



(615)842-4601 

Telex 5106006630 
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!!! Subscribe Now !!! 
68 MICRO JOURNAL 

OK, PLEASE ENTER MY SUBSCRIPTION 

Bill My: Mastercard [~| V1SA[ | 
Exp. Date 



Card# 



For \ Year 



2 Years 



3 Years 



Enclosed: $„ 



Name 
Street 
City 



State 



Z>P. 



Country_ 



My Computer Is: 



Subscription Rates 



U.S.A.: X Vear $24.50, 2 Years $42.50, 3 Years $64,50 
♦Foreign Surface: Add $12.00 per Year to USA Price. 
♦Foreign Airmail: Add $48.00 per Year to USA Price. 

♦Canada & Mexico: Add $9.50 per Year to USA Price. 

♦U.S. Currency Cash or Check Drawn on a USA Bank ! 



68 Micro Journal 

5900 Cassa dra Smith Rd 
POB 849 




Hixson,TN 37343 




Telephone 615 842-4600 
Telex 510 600-6630 



V 



J 



Reader Service Disks 

Disk- I Filesort, Minicat, Minicopy,Minifms. ••Lifetime. "Podiy, 

••Foodlist, ••Die*. 
I Disk- 2 Diskcdit w/ inst.& fixes. Prime, •Prmod, ••Snoopy, 

••Football, ••Hexpawn.* # Lifciime. 
Disk- 3 Oxjg09. Sccl r Sac2, Find, Table2, Inteat, Disk-cxp. 

•Disksave. 
I Disk' 4 Mailing Program, *Finddat, •Change. •Testdisk. 

| Disk- 5 -DISKFIX 1. -DISKFDC 2. ••LETTER, "LOVESIGN, 

••BLACKJAK. ••BOWLING, 
Disk- 6 ••Purchase Order, Index (Disk file indx). 

Disk- 7 Linking Loader, Rioad, Harkness. 

Disk* 8 Cncsi. Lanpher (May 82). 

Disk- 9 Dalacopy, Diskfix9 (Aug 82), 

Disk- 10 Home Accounting (July 82). 

Disk- 1 1 Dissembler (June 84). 

Dlsk-12 ModemoS (May 84). 

Disk- 1 3 •Imtmf68, Tesimf68, , Cleanup. , Dska]ign,Hc]p.Daie,Txi 

Disk- 14 *Init, •Tesi. •Terminal. •Find, •Diskedit, InitLib. 

Pisk-15 Modcm9 + Updates (Dec. 84 Gilchrist) to ModemS 

(April 84 Commo). 
Disk- 16 CopyTxt, Copy. Doc. Cai.Txi. CaiDoc, 

Disk* 17 Match Utility. RATBAS. A Basic Pieproacssor. 

Disk. 18 Parse.Mod, Si2e.Cmd (Sept. 85 AmuLiong),CMDCODE, 

CMD.Txi (Scpu 85 Spray). 
Dlsk-19 Clock. Dale, Copy. Cat, PDELAsm Sl Doc., ErTorvSys, 

Do* Log, Asm & Doc. 
Disk-20 UNIX Like Tools (July & Sept. 85 Taylor £ Gilchrist). 

Dragon.C. Grcp,C. LS.C, FDUMP.C 
l>isk-2l Utilities A Game* - Date, life. Madness, Touch, Goblin, 

Stars hot, A 15 more. 
Uisk.22 Read CPM A Non-FLEX Disks. Fraser May 1984. 

Disk 23 ISAM. Indexed Sequential file Accessing Methods. 

Condon Nov. 1985. Extensible Table Driven. Language 

Recognition Utility, Anderson March 1986. 
Disk-24 68' Micro Journal Index of Ankles & Bii Bucket Items 

from 1979 - 1985, John Current. 
INsk-25 KERMIT for FLEX derived from the UNDC ver. Burg 

Feb. 1986. (2)-5 rt Disks or <i)-8" Disk. 

Disk-26 Compacia Um Board review, code & diagram. Burlison 

March "86. 
Disk-27 ROTA BIT/TXT, SUMSTEST.TXT. CONDATATXT, 

BADMEN.TXT. 
Disk-28 CT 82 Emulator, bit mapped. 

Dlsk-29 ••Star Trek 

DiskOO Simple Winchester. Dac/86 Gracn. 

Dlsk-31 •♦• Read/Write MS/PC-DOS (SK*DOS) 

Disk-32 Heir-UNDC Type upgrade - 68MJ 2/87 

Dlsk»33 Build the GT-4 Terminal - 68MJ 1 1/87 Condon. 

]>isk*34 FLUX 6809 Diagnostics, Disk Drive Test, ROM Test, 

RAM Test - 68MJ 4/88Korpi. 
NOTE: 
This is a icader service ONLY! No Warranty is offered or implied, they are 
as received by 68' Micro Journal, and aie for reader convenience ONLY 
(some MAY include fixes or patches). Also 6800 and 6809 programs are 
mixed, as each is fairly simple (mostly) to convert to the oiher. Software is 
available to cross-assemble all. 

• Denotes 6800 - •• Denotes BASIC 

•** Denotes 68000 - 6809 no indicator. 



8" disk $19.50 
5" disk $16.95 



Shipping & Handling -U.S.A. Add: - $3.50 
Overseas add: $4.50 Surface - S7.00 Airmail 

68 MICRO JOURNAL 

5900 Cassandra Smith Rd. 

Hixson.TN 37343 

(615)842-4600 - Telex 510 600-6630 





62 



November '88 



66 Mcro Journal 



The Only 6809 BASIC to Binary Compiler for OS-9 

FLEX or SK*DOS 

Even runs on the 68XXX SK*D()S Systems* 



Hundreds Sold at 
i Suggested Retail: ■ 

i $100.00 i 



• 6809 - OS-9™ users can now transfer their FLEX™ 
Extended BASIC (XBASiC) source files to OS-9. com- 
pile wth Die OS-9 version and run them as any other 
OS-9 binary "CMD" program. Much faster than BASIC 
programs. 

• 6809 - FLEX users can compiler their BASIC source 
files to a regular FLEX ".CMD" file. Much faster execu- 
tion. 

• 68XXX - SK'DOS™ users running on 68XXX systems 
(such as the Mustang-06/A) can continue to execute 
their 6809 FLEX BASIC and compiled programs while 
getting things ported over to the 68XXX. SK'DOS 
allows 6809 programs to run in emulation mode. This is 
the only system we know of that will run both 6809 & 
68XXX binary files. 

K-BASIC is a true compiler. Compiling BASIC 6809 pro- 
grams to binary command type programs. The savings 
in RAM needed and the increased speed of binary 
execution makes this a must for the serious user, And 
the price is now RIGKT! 

Don't get caught up In the "Learn a New Lan- 
guage" syndrome • Write Your Program In 
BASIC, Debug It in BASIC and Then Compile 
it to a .CMD Binary File. 



For a LIMITED time 
save over 65%... 
This sale will not be 
repeated after it's 
over! * 



........ ...... 

I SALE SPECIAL: 

j $69.95 

V.... ......... 



SPECIAL 

Thank- You-Sale 



On(y Jrom: 



c 



S.E. Media 



p 



i 



9900 Cassandra Smith Rd 

Hlxson, Tn 37343 

Telephone 615 64*6809 

Telex 510 60O6630 



A Division of Computer Publishing Inc. 
Over 1,200 Titles - 6800680^6801) 



K-BASIC will nji infer 6KXXX SK*DO$ m onuUui mok far ihc MX 

Price uhjea id dmqc w«ha4 ratkz. 
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PT-68000 SINGLE BOARD COMPUTER 

The PT68K2 is Available in a Variety of Formats 
From Basic Kits to Completely Assembled Systems 



BASIC KIT (6 MHZ) - Boaid. 68000, 

HUMBUG MONITOR + BASIC in ROM, 
4K STATIC RAM. 2 SERIAL PORTS, afl 
Components S200 

PACKAGE DEAL - Complete Kit with 
Board 66000 10 MHZ. SK'DOS, 51 2K 
RAM. and all Necessary Parts $575 

ASSEMBLED BOARD (12 MHZ) 
Completely Tested, 1024K RAM, 
FLOPPY CONTROLLER. PIA. SK'OOS 
$899 

ASSEMBLED SYSTEM - 10 MHZ 
BOARD, CABINET POWER SUPPLY, 
MONITOR ♦ KEYBOARD. 80 TRACK 
FLOPPY DRIVE. CABLES $1299 
For A 20 MEG DRIVE, CONTROLLER 
and CABLES Add $295 



PROFESSIONAL OS9 



'•SK-OOS If « Tr«fcm*/k of 

STAR-K SOFTWARE SYSTEMS CORP. 



$500 




FEATURES 

MC68000 Processor. 8 MHZ Clock (optional 

10.12 5 MHZ) 

51 2K or 1024K of DRAM (no wait stales) 

4K of SPAM (61 16) 

32K.64K or 128K of EPROM 

Four RS-232 Senal Ports 

Floppy dsk controller will control up to four 

5 1/4', 40 or 80 track. 

Clock with orvboard battery, 

2 - 8 bit Parallel Poits 

Board can be mounted in an IBM type PC/ 

XT cabinet and has a power connector to 

match the IBM type power supply. 

Expansion ports - 6 IBM PC/XT compatible 

I/O polls The HUMBUG* monitor supports 

monochrome ancVor color adaptor cards 

and Western Digital Winchester interface 

cards 



PERIPHERAL TECHNOLOGY 

1480 Terrell Mill Rd., Suite 670 
Marietta, Georgia 30067 

404/964-0742 Send For Catalogue 

VISAMASTERCARD/CHECK/C.O.D. For Complete Information On All Products 



tr 



^ 



DATA-COMP 



SPECIAL 



Heavy Duty Power Supplies 




For A Iknttad tkna our rCAVY DOTY SWTTCHNG POWER SUm.Y> Ttou» am BRAND NEW unit* Note that 1 
price* are less than 1/4 tha normal prtoa for thee* high quaJHy units. 



Make ftstert 

Size \05 x 5 x 2.5 inches 

Including hewy mouOtg tnckd and teusirt. 

Rating in llGY220vote ac (strap change) O* 130 watts 

Output: +5v - 10 amps 
+12v.4.0 amps 
+12v - 2.0 amfB 
-12v - 0.5 arras 

Mating Carutm: Taminal strip 

Load Reacacfn Aiannabc short croal mcuvoy 

SPECIAL: $99.95 each 

2 or more $4955 each 

Ad± $7,50 e** S/H 



J ^ 



Makf: Boctert 

Sue: 10.75 x 62 x 125 inivs 

Raring 110/220 tc (sffep chaise) Ojc 81 warn 

QfipuB: +5v - 8.0 amps 
♦12v 24 arras 
+12v- 2,4 amps 
+12v -2.1 amps 
-12v- 0,4 amis 

Mating Cuiium: Mokx 

Load fteaakn; Aiasnabc srnt circuit mcuvoy 

SPECIAL: $4955 each 

2 or mew* $3955 each 

Ad* P50SMwii 



5000 



Srnlh Rd, Hopcy Til 37343 Taaaptana 615 8434OT 



Tote 510 60O6630 
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Now Offering "FLEX'* (2 Versions) 
AND 'STAR- DOS PLUS + " 




For Ordering C*ll 

(615)842-4600 



FROM - DATA-COMP, C.P.I. 



A Family of 100% 68XX Support Facilities 
The Folks u/ho FIRST Put FLEX* 
The CoCo 



on 




TSC Editor 

RtjtSOOO 
NOW $35.00 



DOS PLUS 4 

• Functions Same as FLEX 

• Reads - writes FLEX Disk* 

• Run FLEX Programs 

• Just type: Run "STAR-DOS'' 

• Over 300 utilities & programs 
to choose from. 



PLUS 
ALL VERSIONS OF FLEX & STAR DOS 




+ Read-Write-Dir RS Disk 
+ Run RS Basic from Both 
+ More Free Utlities 



INCLUDE 

+ External Terminal Program 
+ Test Disk Program 
+ Disk Examine & Repair Program 
+ Memoiy Examine Program 
+ Many Many More!!! 



TSC Assembler 

fUfttOOO 
NOW $3500 



Cora Disk Dnvp Susleuisl 



2 TH1NLINE OOUILB SIDED DOUILE DENSITY DISK DRIVES 
SYSTKH VlTN PDtJEI SWPLV .CAlINfcT, DISl OllVE CARLE. J4M 
NEW DISK CONTROLLER JPO-CP VJTfi J-DOS .US-DOS OPERATING 
SYSTEMS. $4*9.95 

Spidfy What CONTROLLER You W#nt JAM, or tADIO IHACX 



THINLINE DOUIt^ SIDED 
DOUILE DENSITY 40 TRACKS 



1 



Verbatim Diskettes 



Sinftle Sldtd Double Deoilty 
Daubl* Sided Doubl* Deotlty 



Cauli oilers 



J4N JPO-CP WITN J-DOS 
WITH J-OOS, RS-DOS 
RADIO SNACK J, I 

RADIO SHACK Dlik CONTROLLER 1.1 



Disk Dtive Cables 



Cflbl* for One Drive 
Cable for Two Drive* 



$179.9* 



$ 14.00 
* 14.00 



$139.95 
$159.95 
$114.95 

3134.93 



S 19.93 
S 24.93 



MK VPCRADt 

POR C.D.E.P, AMD COCO 11 
RADIO SHACK BASIC 1.2 
RADIO SHACK DISK IAS1C 1.1 

DISK OltVE CAR I NET PCJ1 A 
SINGLE DRIVE 

DISK DRIVE CABINET POR TWO 
TK INLINE DRIVES 



niVTCRJ 

EPSOM U-RO 
EPSON MX-70 
EPSOM KX-lOO 

acojmmue* not ipso* 

6 J 46 2K SEllAL BOARD 
6 J 49 32K EXPAND TO J 26K 
EPSON MX -AX- HO KI150NS 
EPSON LX-80 Rl IRONS 
TEACrOR UNITS POR LX-80 
CARLES 4 •THEN INTERSACKS 
CALL POR PRICING 



$ 29.95 

$ 24.93 
I 24.93 



I 49.93 
$ 49.95 



4219.95 
IU3.95 
$495.95 



$ R9.95 
$149.95 
$ 7.95 
I 5.93 
I 39.95 



DATA-COMP 

5900 Cassandra Smith Rd 
HiKson. TN 37343 


|e» 




SHIPPIN6 

USA ADD 211 

FOREIGN ADD 5» 

MIH. %2$Q 


(615)842-4600 

f Of Ofdvftng 

Telex 5106006630 


S 





An Ace of a System in Spades! The New 

MUSTANG-08/A 



Now with 4 serial porta standard ft speed increase to 12 Bfhz CPU + on board battery 
backup and Includes the PROFESSIONAL 08*9 package - Including the $500.00 OS-9 

C compUerl This offer won't last ftn e v e i ! 



NOT 128K, JVOT512K 
FULL 768K No Wait RAM 

The MU5TANGO0™ syzfem took every hand from al 
other 68006 aysema we tested, running OS-9 68K) 

The MUCTANG48 Mudes OS^BK™ anrior P*or 
Swka SKD05T* SttDQS b a single user, single tasking 
system thai takes up where *FLBC~ left off. SKDOS is 



| asuafy a 68XXX FLEX type system (Not * TSC product.) 



Now even faster! 
with 12 Mhz CPU 



C Congrffe time* OS-9 68K Hwd DiS~^\ 
W5TANCXB 8MrsCPU Omto 32t»c 



Other popuHr BOOS tyiswn 
MUSTANM20 



Into-Katc 
Omln 21 etc 



^ 




System indudes O6r0 68K or SCDQS 

Specifcaibna: 



Your Choice 



CRJ 


MC68008 


12 Mhz 


RAM 


7WK 
NoVMSeeje 


2SEK Cn^B 


PORTS 


4-R23B 


MCfifrBI OUAHT 




2 SblPvdU 


MCGB21 PtA 


aocK 


MK46T02 


Red Tine CM Bet BAJ 


EPROM 


16K.&COT64K 


Sellable 


FLOPPY 


WD1772 


SmOrMH 


KW) DtSK 


fctrfm Port 


WD10Q2 Bend 



25 Megabyte 
Hard Disk System 



JV Now more serial ports - faster CPU l 
Battery B/U - and $850.00 OS-9 Profes | 
. slonal with C compiler included! 



'$400.00 



See Musiang-02 M * page 5 
for trade-in (Mais 



J 




MUSTANG-08 



LOOK 



Saxnk 



32 fai. Hauls' 
Eraegcr Lo^f 
18.0 9.0 

...9.8. ..6, 3 



rwtv 

regletar long I; 

lor (UO; I < 898999; ++4); 



$2,398.90 

Complete with PROFESSIONAL OS-9 

includes the $500.00 C compiler, PC 

style cabinet, heavy duty power supply, 

5 DDDS BO track floppy, 25 MegByte 

^ Hard Disk - Ready to Run J 

Uh8<e other 68008 systems there are several stgnfoant 
dftanraB. The MUSTANG-08 is a full 12 fcfagahertz system. The 
RAM isea NO wal steles, this means ful bore MUSTANG type 
performance. 

Abo, eib*bg for addressable RDMPROM the RAM b the 
maximum allowed for a 68009. The 68008 can only address a 
totaJ of 1 fcfeptytes of RAM. The design ato*s al the RAM 
span (for ai practical purposes) to be utilised What is not 
avalstte to the user is required and reserved for the system 

A RAM disk of 480K cm be eaaiy axifcured. leaving 288K 
free for pt^a^vsysfcrn RAM space. The RAM OtSK can be 
configured to any soe your application requres (system must 
have 128K ki addibbn to Is other rw^lremeflfc). Leavfig the 
remainder of the or\piaJ 7B8K tor program use. SUfoers 
source included (drivers, etc.) 
nnninii nt mr MUSTAyaomtnuir ^jch 

Data-Comp Division 

n /<^ej{fe>v A Decade of Quality Senlce"^ 

*} V^fjp/ Systems WcrUWide 

Computer Publishing, Inc. 5900 Cassartfa Smith Road 
Teb(ta0615 842-4601 ■ Telex 510 fiODSSM Hboon, Tn 37343 



* These vrff> SWTPC hKtenfly R£X 5* - Cd far J**cW hto. 



